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avec les livres PSI. 


La pratique de l'Apple Il 
tome | 

par Nicole Bréoud-Poutiquen 

Cet ouvrage preserite les specificices 
du Basic Applesoft à partir d'une 
description du matériel et du logiciel 
du systeme Apple. Les techniques 
de programmation, de composition 
et d'annation de dessiris ec graphi- 
ques colorés y sont expliquéesa l’aide 
d'exemples illustratifs et d'exercices 
reselus. 


128 pages - 85,00 FF 


La pratique de l’Apple Il 
tome 2 

par Nicole Breaud-Poutiquen 

Ce second volume de la pratique de 
l'Apple Il est consacre au systeme 
d'exploitatien disque, à la gesuon 
des fichiers, à l'impressien et aux 
imprimantes, à là carte Forloge 
Appleclock. De nombreux exemples 
de programmes illustrerit les fonc- 
uons et les cominandes décrites 


120 pages - 85,00 FF 


La pratique de l'Apple Il 
tome 3 

Par Nicole Breoud-Pouliquen 

et Damel-Jean David 

Ce volume est une initiation a la 
programmauion en langage machine 
6502 donc le Jeu d'instructions est 
explique et utihse. L'assembleur 
symbolique et ses logiciels connexes 
y sent décrits. L'interacuon avec le 
Basic et avec le systeme y est etudiee 


176 pages - 95,00 FF 


Clefs pour l'Apple Il 

par Nicole Breaud-Pauliquen 

Un hvre de reference. dans la collec- 
uon “Mementos", destine a se trou- 
ver en permanence à cote de l'erdi- 
nateur Apple IL Son but est l'acces 
rapide à l'infermatio 1: syntaxe des 
commandes, codes cäracteres. mes- 
sages d'erreurs, codes machire. 
adresses utiles. || comporte egale- 
ment un recueil de 25 “trucs” utiles, 
les “Comment... * 


144 pages - 105,00 FF 







L’Apple et ses fichiers 

por Jacques Borsgontier 

Pour apprendre progressivement la 
programmacon des applications uti- 
lisant les fichiers, l'ouvrage com- 
mence par une presentation concise 
et illustree des commandes du Sys- 
teme d'Exploitation Bisque et des 
instructiens du Basic Applesoft. Les 
instritctions des fichiers sequentiels 
ct a acces direct sont ensuite décri- 
tes ainsi que leur vulsation. Des 
methodes pratiques, souvent mal 
connues, montrent comment uuliser 
au mieux des fichiers a acces direct 
acces indexe. liste inverse. Une 
vingtaine de programmes illustrent 
l'urilisauien de ces techniques. 

le livre : 176 pages - 95,00 FF 
La disquette d'accompagne- 
ment: 210,00 FF 

Pour Apple Il, ll plus. Île - Dos 33 - 
version 48 K ou plus. 


Multiplan pour Apple Il plus 

et //e 

par Herve Thiriez 

Multiplan est un progiciel qui per- 

met de gerer plusieurs tableaux 

simultanément; cet ouvrage sera 

pour les possesseurs d'ordinateurs 

Apple Il Plus ou//e un vericable gride 

d'utilisationde Muitiplan grace a des 

exemples progressifs et à de nom- 

breux cas d'application {gestion de 

porteleuilles, de copropriete, feuille 

de paie, impôts, tableaux de berd, 
ecc.). 

Le livre : 216 pages- 105,00 FF 
La disquette d'accompagne- 
ment : 210,00 FF 

Pour Apple Il plus, Île - Dos 3,3 - 
version 64 K ou plus (Disque-re 
maitresse Multiplan indispens: 


Visicalc sur Appie 

bar Herve Thiriez 

Apres une presentation progressive 
du medèle Visicale, l'ouvrage etudie 
de nombreux cas d'applicatie 
feuille d'impot, gesuon de copro- 
priété, paye, facturation... permet- 
tanc d'introduire les diflérentes 
nstructiens et astuces d'utilisation 
Le livre : 176 pages - 95,00 FF 
La disquette d'accompagne- 
ment : 210,00 FF 

Pour Apple Il. Il plus, Île - Dos 3,3 - 
version 48 K ou plus (Disquette 
maitresse Visicalc indispensable) 


Pascal UCSD sur Apple il 
par Jacques Reuoult et Patrice Girard 
L'ordinateur Apple ll le langage 
Pascal et le systeme d'exploitation 
UCSD forment a eux seuls le plus 
peut ensemble de micro-inforinati- 
que professionnelle. Une premiere 
partie de cet ouvrage est consacrec 
a l'etude de ces trois eléments. Sont 
ensuiLe abordes les programmes de 
mise en route. Enfin les types et ins- 
tructieris Piscal UCSD sont etudies 
en détail, ce qui permettra au lecteur 
de se rendre compte de la richesse 
mais aussi de la facilite d'emplor du 
Pascal 


232 pages - 120,00 FF 


Gestion de fichiers 

et de peripheriques 

pour Apple Il / Pascal 

Por Herve Haut 

Ce livre propose un moyen rapide 
et facile pour gerer les fichiers et les 
peripheriques sur Apple, De la ges- 
uen de mibliothéque a l’ucilisacion 
des periphériques, l'auteur prepese 
un ensemble de programmes utili- 
uires, ecrits en Pascal. Un expose 
des techniques les plus elaborees 
permertra d'attendre le niveau suf- 
fisanc pour utihser les mechodes de 
programination mises en œuvre 


176 pages - 100,00 FF 


Les bases de donnees 

sur Apple Il 

par Michel Keller 

L'objer de cet ouvrage est d'aider le 
lecteur a faire un choix parmi les 
nombreux logiciels existants sur 
Apple, Quatre de ces logiciels sont 
selecaonnes ici : PFS ex PFS/Report 
- DB Master - CX BASE 200 - DBASE 
IL Pour chacun on trouve une des- 
criptien détaillée du logrel lui-meine 
eteses procedures de mise en route, 
de creation de fichier. de saisie des 
données, de maintenance ec d'edi- 
uon, L'auteur termine cette etude 
par l'expose des avantages et des 
inconveniencs inherents à chaque 
logiciel 


144 pages - 90,00 FF 


Microbook : base de 
donnees pour Apple Il 

por Ted Lewis 

Micrebeok est un systeme de ges- 
tien de donnees et un outil de 
développement de programmes 
conçu pour transformer l'Apple Il en 


un outil de classement de fichiers, 
de collecte et de recherche d'infor- 
mations, er de traitement de don- 
nées. C'est un ensemble de pro- 
grammes écrits en Pascal qui fait de 
l'ordnateur un veritable biblio- 
thecarre. 

Les emplois de Microbeok sont 
muluples : il peut être utilisé pour 
quasiment routes les applicauions où 
le stockage et la recherche de don- 
nees est importante. Les program- 
mes ecant tres longs, il est recom- 
mandé d'acheter egalement la dis- 
quette d'accompagr@ment., proposee 
en deux versiens l'une compilée, 
l'attre code source 


Le livre : 248 pages - 145,00 FF 


LES BISQUETTES 
D'ACCOMPAGNEMENT 
Microbook : base de donnees 
pour Apple li 

par Ted Lewis 

volume MICRO 

Apple H, Il plus. //e et/fc avec systeme 
Pascal disquette simple face, compi- 
lee, donc non modifiable 


Prix : 210,00 FF 













Microbook : base de données 
pour Apple Il 

por Ted Lewis 

volunie SOURCE oc volume UNIT 
Apple Il || plus, fe et //c, avec sys- 
teme Pascal, disquette 2 faces enre- 
gistrees 


Prix : 310,00 FF 


Le systeme Pascal ans: que les consi- 
gnes d'utilisatien des programmes 
centenus dans le livre sont indispen- 
sables. Cette disquette existe en 
deux versions : l'une, double 
face, destinee aux passionnes 
de la programmation en Pascal, 
qui pourront directement pro- 
grammer dans ce langage, et 
developper et etendre a leur 
gre les facultés du système. La 
seconde, compilée, simple face, 
destinee aux personnes qui ne 
connaissent pas la programma- 
tion en Pascal ou qui n’ont pas 
le temps de programmer elles- 
memes, et qui desirent utiliser 
directement les multiples pos- 
sibilites de Microbook. 

Teus les programmes proposes dans 
le livre sont presents dans chacune 
des disquettes, exceptes les ordres 
pour imprimante 


L sou: 
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Editorial 


L'environnement Apple est en évolution constante : nous nous sommes à peine habitués au /c. au 
Macintosh et au Mac 512 Ko que l'on voit poindre à l'horizon le fameux Apple x et la ‘norme /c” 

En effet. comme vous pourrez le voir dans la rubrique Micro-Informations. l'intention d'Apple est d'éta- 
blir le //c comme norme de la famille 6502. avec un modéle haut de gamme. le //x. 


Les possesseurs de //c ont une occasion de se réjouir : des essais systématiques réalisés à Pom's nous 
ont montré que tout ce qui a été publié, depuis le numéro 1. fonctionne sur le /c. En ce qui concerne 
les programmes écrits en Pascal UCSD. il est bon de vérifer toutelois, avant toute utilisation. que votre 
version du système n'est pas trop ancienne pour “booter” correctement sur le /c (reconnaissance des 
80 colonnes). 


Malgré des retards généraux par rapport aux dates de sortie annoncées au Sicob. nous commençons à 
voir apparaître de nombreux logiciels pour le Macintosh, avec un bon pourcentage de produits français, 
dont certains n'ont rien à envier aux créations américaines. Par contre. l’arrivée des périphériques de 
toutes sortes n’est pas particulièrement rapide. 


Si vous possédez uniquement un Macintosh, voici quelques précisions concernant les abonnements à 
Pom's. Seul l'abonnement sans disquette peut vous intéresser. puisque les disquettes comprises dans les 
abonnements sont destinées aux Appiles !l et //. Il existe par ailleurs des disquettes d'accompagnement 
Macintosh, vendues séparément et identifiées comme telles dans les bons de commande. 

La disquette Mac No I est désormais complète. Elle comprend tous les programmes originaux publiés 
dans les numéros 14 - 15 - 16, plusieurs polices de caractères (Cairo. Los Angeles, Mos Eisley. Manhat- 
tan. Hollywood), Copy Disk avec un seul drive et le programme ‘Localizer” 

La disquette No 2. qui s'ajoutera au catalogue Mac. commencera donc à partir du Pom s 17. 


Vos contributions concernant le Macintosh sont. malheureusement, encore trop peu nombreuses. Nous 
les recevrons et testerons avec plaisir 

A ce propos, et pour allécher les intéressés, signalons que les capacités du nouveau Mac 512 Ko sont : 
plus en rapport avec les performances du processeur 68000 que celles de son petit frère. il permet. par g1 
exemple, de disposer de quelques 389 Ko avec le Basic et de constituer. si le coeur vous en dit, des Le 
tableaux de variables de plus de 64 Ko... 


Pour en revenir à la ‘ligne 6502" certains lecteurs semblent redouter que nous délaissions l'Apple il ts 
pour le //e. Bien heureusement il n'en est rien. Nous nous eftorçons toujours de publier des program- LS 
mes compañibles Apple If - //e ou //c {mis à part les problèmes éventuels liés à l'utilisation des touches 
particulières du clavier //e - /‘c). L'Apple H est toujours d'actualité : n'ayez crainte nous ne vous laisse- 
rons pas tomber ! 4 


Hervé Thiriez 
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Les informations sur ProDOS 
commencent à devenir abondantes, 
ainsi d’ailleurs que les lettres des lec- 
teurs de Pom’s demandant plus d'in- 
formation sur le nouveau système 
d'exploitation de l'Apple II. 


Je vous propose donc aujourd’hui de 
compléter et détailler mon article 
paru dans le Pom's 13. Trois princi- 
paux sujets seront abordés, les indi- 
cations fournies par la lecture de l’ar- 
ticle précédent sur ProDOS étant 
supposées connues : 

l-divers compléments, donnés sans 
ordre prémédité, concernant les 
questions les plus fréquentes 

2-un programme de conversion de fi- 
chiers à accès direct DOS 3.3 
ProDOS: 

3-la méthode d'initialisation des utili- 
taires système tournant dans un envi- 
ronnement ProDOS (il ne s’agit plus, 
comme par le passé, de créer des 
programmes égoïstes s'ignorant mu- 
tuellement, avec les problèmes de 
contention mémoire qui en résul- 
tent). 


La documentation 
ProDOS 


Apple diffuse quatre principaux ma- 
nuels sur ProDOS : 


1. Le ‘ProDOS Users Manual” ex- 
plique l'utilisation des différents utili- 
taires livrés avec la disquette système 
ProDOS (Filer, Convert, etc.). 

2. “Basic Programming with 
ProDOS" est le manuel de référence 
des commandes accessibles sous Ap- 
plesoft, telles que CATALOG, READ 
ou CREATE. De nombreux lecteurs 
nous ont écrit pour nous signaler 
qu'ils n'avaient pas reçu ce manuel, 
pourtant nécessaire à l’utilisation de 
ProDOS (et tout particulièrement in- 
dispensable aux nouveaux utilisateurs 
de l'Apple //c qui ignorent tout du 
DOS 3.3). Ce manuel est apparem- 
ment commercialisé séparément, 
avec la disquette contenant APA 
(Applesoft Programmer’ s Assistant) 
qui offre des utilitmires de renuméro- 
tation et fusion de programmes. 

3. "The ProDOS Technical Refte- 
rence Manual” est destiné aux pro- 
gammeurs en assembleur désirant 
créer des modules appelant directe- 
ment ProDOS. Bien entendu. le 
fonctionnement interne de ProDOS 
n'est pas expliqué; seuls les points 
d'entrée, et la manière de les appe- 
ler, sont étudiés. 

4. Enfin, ‘’ProDOS Assembler Tools” 
explique le fonctionnement de l'as- 
sernbleur 6502 (commercialisé sépa- 
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rément), ainsi que celui de l'utilitaire 
de mise au point Bugbyter (voir 
Pom's 13). 


Ces manuels sont naturellement dis- 
ponibles en français. On peut s’éton- 
ner que seul le premier soit livré avec 
ProDOS. En fait. comme cela avait 
été auparavant le cas avec le Dos 
Tool-Kit, Apple préfère proposer des 
produits complémentaires plutôt que 
de les fournir systématiquement. 


Démarrage d’une 
disquette ProDOS 


Voici. donné plus en détail, le méca- 
nisme du ‘’boot” sous ProDOS : 


1. Lors du “boot”, lancé par l’allu- 
mage de l'Apple ou des commandes 
telles que PR#6. 6<Ctrl-P> ou 
C600G, le processeur 6502 
commence par exécuter la routine 
contenue dans la ROM de la carte 
du contrôleur d'interface (s'il s’agit 
du slot 6, elle est située en $C600 - 
$C6FF). Cette routine ignore tout de 
la disquette qu’elle va charger: il peut 
s'agir d'une disquette DOS 33, 
ProDOS, Pascal, CP/M, Forth ou 
même d'un programme protégé. Elle 
charge un ou plusieurs secteurs de la 
piste O; pour ProDOS. les quatre 
premiers secteurs, c’est-à-dire les 
deux premiers blocs, sont placés en 
mémoire à partir de l'adresse $0800. 
Enfin, le processeur 6502 effectue un 
saut en $0801. 


2. Premier travail à effectuer: "Où 
suis-je ?”. Le programme commen- 
çant en $0801, extrait d'une dis- 
quette ProDOS, peut avoir été 
chargé par un Apple I} ou un Apple 
//!. Après examen des ROMs du mo- 
niteur, celui-ci charge alors à 
l'adresse $2000, soit le fichier 
ProDOS pour un Apple IL soit le fi- 
chier SOS pour un Apple ///. S'il ne 
peut trouver le fichier recherché, le 
programme s'arrête avec un message 
d'erreur. À l'avenir, nous ne nous 
occuperons que de ProDOS sur un 
Apple Il. 


3. Le fichier ProDOS contient le 
M.LI. (Machine Language Interface) 
de ProDOS, c'est-à-dire son noyau 
(ou Kemel). À l’origine du dévelop- 
pement de ProDOS, celui-ci devait 
pouvoir fonctionner sur un Apple |] 
de 48k en se plaçant sous l'adresse 
$C000, ainsi que sur un //e de 64k 
en se plaçant sur la carte langage 
Quelles qu’en soient les raisons, une 
seule version sur carte langage a été 
commercialisée, et cette troisième 
étape reloge donc ProDOS sur l’ex- 
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tension de 16k et place HIMEM 
(l'adresse de la plus haute mémoire 
disponible) à $BFO0. Petite digres- 
sion avant de poursuivre : il doit être 
possible de placer ProDOS sur une 
extension mémoire située ailleurs que 
sur le slot O (cela permettrait l’utilisa- 
tion du Basic Integer sous ProDOS). 
Si un lecteur a réalisé une telle adap- 
tation. 


4. ProDOS mis en place. il faut 
continuer le boot”. Le MEI va donc 
charger et exécuter le premier fichier 
qu’il trouve sur le catalogue principal 
de la disquette dont le nom est de la 
forme XXX.SYSTEM. Dans la majo- 
tité des cas. il s'agit de 
BASIC.SYSTEM qui permet l’inter- 
face entre un programme Applesoft 
et ProDOS. Un autre programme qui 
répond à cette convention peut être 
appelé, par exemple un programme 
professionnel de traitement de texte 
en langage machine. Si aucun fichier 
correct n'est trouvé, on s'arrête là 
avec un message d'erreur. 


5. Tout fichier système se charge à 
l'adresse $2000 et doit assurer lui- 
même son transfert à une adresse 
définitive, dépendant de la position 
précédente de HIMEM. Ainsi le 
BASIC.SYSTEM se reloge à partir de 
l'adresse $9600 et fixe HIMEM à 
cette valeur. 


6. S'il s'agit de BASIC.SYSTEM, il 
recherche. toujours sur le catalogue 
principal, un fichier s’appelant STAR- 
TUP. Une fois trouvé, celui-ci est 
chargé et exécuté, quel que soit son 
Dpe (Appiesoft, assembleur ou 
XEC). 


Voilà qui achève le ‘’boot” d'une dis- 
quette ProDOS; il faut retenir princi- 
palement que l'ordre des fichiers sys- 
tème sur le catalogue principal est 
d'importahce capitale. 

Petite parenthèse avant de poursui- 
vre : il serait bon de pouvoir formater 
une disquette ProDOS sans devoir 
obligatoirement utiliser l'utilitaire sys- 
tème Filer. Si un lecteur a réussi à 
séparer la routine de formatage de 
l’ensemble du programme, qu’il nous 
fasse signe... 


Compléments sur les 
commandes ProDOS 


Tout d'abord une petite rectification 
par rapport à l'article de Pom's 13: 
la commande CATALOG fournit un 
affichage sur 80 colonnes. et CAT 
sur 40 colonnes, et non l'inverse 


Voici, dans un désordre savamment 
dosé, quelques compléments : 


A ER 
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— CHAIN permet. comme RUN, 
l'utilisation du paramètre @ pour dé- 
signer le numéro de la première ligne 
d'exécution. Attention : un tableau 
défini dans le premier programme ne 
peut être redimensionné dans le se- 
cond. 


— EXEC comporte le paramètre F 
(field) permettant de spécifier le nu- 
méro de champ initial de l'exécution. 
Il remplace le paramètre R (record) 
du DOS, fort peu utilisé d’ailleurs. 


— BLOAD et BRUN comportent les 
paramètres B, E et L: B (beginning). 
E (end) ou L (length) permettent de 
choisir le chargement d'une portion 
du fichier. au lieu de son intégralité 
{l’utilisation de E ou L est exclusive). 


— BLOAD et BSAVE peuvent char- 
ger ou sauvegarder un fichier de type 
non-binaire, si on utilise le paramètre 
T (type). Ce même paramètre est uti- 
lisable par OPEN et APPEND pour 
ouvrir un fichier non-texte. De plus le 
paramètre L de BSAVE est étendu 
jusqu'à $FFFF. 

— READ et WRITE peuvent utiliser 
les paramètres F (field) et B (byte) 
pour débuter leur action plus loin 
que la position courante. Cette ex- 
tension rend inutile la commande 
APPEND qui est néanmoins conser- 
vée pour préserver la compatibilité 
avec les programmes écrits pour le 
DOS. 


— Les routines en assembleur spéci- 
fiées par les commandes IN# 
A$2000 ou PR# A$300. qui inter- 
ceptent les entrées/sorties vers un slot 
donné. doivent commencer par l’ins- 
truction 6502 CLD (CLear Decimal). 
afin de permettre à ProDOS de véri- 
fier leur existence: il s'agit d’un 
contrôle supplémentaire de sécurité 
qui évitera certains blocages clavier / 
écran. 


— APPEND peut être utilisé désor- 
mais dans un fichier à accès direct. 


Malgré son allocation dynamique de 
l'espace disque. ProDOS possède la 
même limitation que le DOS 3.3: 
tout fichier re-sauvé avec une taille 
inférieure à sa taille initiale conserve 
l'intégralité de ses blocs. Il sera donc 
encore nécessaire d'effectuer réguliè- 
rement un test de compression sur 
les fichiers. 

Nous verrons dans un prochain nu- 
méro la méthode à utiliser pour ra- 
jouter de nouvelles instructions à 
ProDOS ainsi que. plus générale- 
ment. la programmation système qui 
doit suivre un certain nombre de 
règles. 


Quelques précisions sur le chemin 
d'accès d'un fichier. 

Pour accéder à un fichier sur un vo- 
lume. ProDOS concatène trois infor- 
mations : 

— le PREFIX. dont la valeur corres- 


pond initialement au nom du volume 
de démarrage, 

— le chemin d’accès réduit éventuel- 
lement précisé dans là commande, 

— le nom du fichier. 

Ainsi pour un PREFIX 
/DISK.POMS/N@1/, si l'on émet l’ins- 
truction: LOAD UTIL / DIRECT. 
CONVERT. ProDOS ira chercher : 
DISK. POMS / NOI / UTL  DI- 
RECT. CONVERT. 

Nota : si les paramètres Slet et Drive 
sont également précisés mais incom- 
patibles. ils seront ignorés. 


Voici. pour terminer l'étude des 
commandes ProDOS / 
BASICSYSTEM, leur syntaxe : (pn 
— pathname = chemin d'accès ré- 
duit + nom de fichier) 


APPEND pn [Li] [.Ss)] [.Dd] 

BLOAD pn [,Aa)] [.Bb] [.LIEe] 
[.Tt] [,Ss] [.Dd] 

BRUN pn [Aa] [.Bb] [.LLEe] 
[.Ss] [.Dd] 

BSAVE pn .Aa .LLEe | Bb] 


LTt] [,Ss] [,Dd] 
CAT p 
CATALOG p 
CHAIN pn [,@nl] L.Ss] [.Dd] 
CLOSE [pn] 


CREATE pn [,Tt] [.Ss] [.Dd] 
DELETE pn [.Ss] [.Dd] 
EXEC pn [L.Ff] [L.Ss] {.Dd] 
FLUSH {pn] 

IN# [s] [.] [Aa] 

LOAD pn [.Ss] [.Dd] 

LOCK pn {,Ss] [.Dd] 

OPEN pn [LU] [.Ss] [.Dd] 
POSITION pn L.Ff] (Bb) 
PREFKX p [.Ss] [.Dd] 

PR# [s] [,] [Aa] 
READ pn [.Rr] [.Ff] L.Bb] 
RENAME pn1.pn2 [.Ss] [.Dd] 
RESTORE pn [.Ss] [.Dd] 
RUN pn [.@n] [.Ss] [.Dd] 
SAVE pn [.Ss] [.Dd] 

STORE pn i.Ss] {,Dd] 
UNLOCK pn [.Ss] [,Dd] 
WRITE pn [.Rr] L.Ff] [Bb] 

— pn [.Ss] [.Dd] 


Note: dans tous les cas. le paramètre 
V (volume} du DOS 3.3 est autorisé 
mais ignoré. 








Et les codes erreurs possibles (acces- 
sibles par PEEK(222) si ONERR est 
actif) : 


02 Range error 

03 No device connected (ROM non 
trouvée sur le slot spécifié) 

04 Write protected 

05 End of data 

06 Path not found 

07 Path not found 

08 FO error 

09 Disk full 

10 File locked 

11 Invalid option 

12 No buffers available (maximum 
de 8 fichiers ouveris contre 16 sur 
DOS 3.3) 

13 File type mismatch 
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14 Program too large 
15 Not direct command 
16 Syuntax error (code identique au 
Basic, seul manque le ‘?" initial) 
17 Directory full (catalogue principal 
uniquement) 
18 File not open 

Duplicate  filename 
CREATE ou RENAME) 
20 File busy (si CAT, CATALOG. 
DELETE ou RENAME d'un fichier 
ouvert) 
21 File(s) still open (CLOSE impéra- 
tif avant la fin de programme) 


(avec 


Modifications des 
commandes Applesoft 


Trois points essentiels méritent d'être 
soulignés . 

— Il est possible d'utiliser la 
commande HIMEM. mais de manière 
à ce que celui-ci se trouve sur une 
page mémoire de 256 ($100) octets. 
En effet, ProDOS alloue dynamique- 
ment les buffers de fichiers en exami- 
nant la valeur actuelle de HIMEM. 


— L'instruction TRACE de l'Apple- 
soft fonctionne sans problème sous 
ProDOS (en fait celui-ci utilise le 
TRACE pour contrôler le programme 
en cours !). 


— Etrangement. la commande FRE 
qui permettait un nettoyage très ra- 
pide de là mémoire semble avoir dis- 
paru de la version commercialisée de 
ProDOS. De même, deux améliora- 
tions importantes de l'Applesoft, qui 
étaient prévues dans les spécifications 
originelles de ProDOS. ont disparu : 
d'une part la commande INPUT de- 
vait pouvoir accepter la saisie des ca- 
ractères de ponctuation telles que la 
virgule ou les deux-points: d'autre 
part ProDOS devait, à l'interception 
d'une instruction HGR ou HGR2. li- 
bérer l'espace mémoire correspon- 
dant pour les programmes Basic. Ap- 
paremment ces routnes ont dépassé 
le quota d'octets qui leur avait été al- 
loué, d'où leur suppression pure et 
simple 


Utilisation avec carte 
80 colonnes étendue 


Caractéristique encore mal connue 
de ProDOS. celui-ci détecte automa- 
tquement la carte 80 colonnes éten- 
due. Qu'en fait-il ? I] crée un disque 
virtuel dans l'espace mémoire auxi- 
liaire de 61K. accessible par le pré- 
fixe /RAM. Le disque créé contient 
128 blocs de 512 octets arrangés 
ainsi : 

Blocs 0-1 : non disponibles 

Bloc 2: catalogue principal pour 12 
fichiers 

Bloc 3 : carte du volume 

Blocs 4-7 : non disponibles 

Blocs 83-127. sous-catalogues et fi- 
chiers. 
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Ce volume, considéré de manière in- 
teme comme situé au Slot 3, Drive 
2, ne peut cependant être référencé 
que par son préfixe, Bien entendu. 
les informations qui y sont contenues 
disparaissent lorsque se retire le cou- 
rant électrique ! 


Conversion 
DOS/ProDOS de 
fichiers à accès direct 


L'utilitaire Convert de la disquette 
système ProDOS ne permet pas de 
convertir automatiquement les fi- 
chiers à accès direct. Deux difficultés 
majeures empéchent, en effet. une 
conversion automatique : 

1. Il'est nécessaire de spécifier la lon- 
gueur d'un enregistrement. Cette va- 
leur, (bien que mémorisée de ma- 
nière interne par ProDOS), doit 
impérativement être indiquée au sys- 
tème d'exploitation afin qu'il recon- 
naisse un fichier à accès direct 

2. Les informations du fichier peu- 
vent être clairsemées {sparse file ou 
"fichier creux”): certains enregistre- 
ments ont été écrits, d'autres ne l'ont 
jamais été et contiennent donc des 
octets à zéro binaire qui provoquent. 
à la moindre tentative de lecture, un 
irrémédiable “End of Data Error”. 


Quelques rappels sur les fichiers à 
accès direct peuvent être utiles : 


1. Un fichier à accès direct est un en- 
semble d'enregistrements de même 
longueur. Ceux qui ont déjà été 
écnts se terminent par un caractère 
retour-chariot : un enregistrement de 
longueur n contient n-] caractères si- 
gnificatifs suivis d'un Retum Ceitains 
fichiers à accès direct ont cependant 
une structure moins orthodoxe et 
contiennent des enregistrements à n 
caractères significatifs : il est alors né- 
cessaire de les lire par une série de 
GETSs et non par un INPUT 


2. Chaque enregistrement (record) 
est composé de 1 à plusieurs champs 
(field) Ceux-ci peuvent ètre de lon- 
gueur variable. à la condition que la 
somme de leur iongueur soit cons- 
tante. Les champs sont séparés entre 
eux, soit par un retour-chariot. soit 
par une virgule, selon l'humeur du 
programmeur. 


3 Sous DOS 3 3. le nombre de sec- 
teurs d'index d'un fichier ne peut dé- 
passer la taille d'une disquette: le 
programme : 

100 PRINT  D$"OPEN 
DIRL"512 

110 PRINT D$"BELETE FICHDIR” 
110 PRINT DS$'WRITE  FICH- 
DIR.R'280.122 

120 PRINT A 

130 PRINT D$"CLOSE FICHDIR” 
sature quasi-complètement les 140 
kilo-octets disponibles après plus 
de 3 minutes d'exécution. Le même 
programme lancé sous ProDOS n'al- 


FICH- 
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loue que 6 blocs (3 kilo-octets). avec 
un gain comparable en vitesse. 

Sous ProDOS. un fichier de 16 
méga-octets, peut donc résider sur 
une disquette de 140K, pourvu que 
seuls quelques enregistrements aient 
été écrits 

Deux remarques : 

— Sous ProDOS, il est nécessaire 
d'ajouter la ligne: 105 PRINT 
D$"CLOSE FICHDIR‘” car tout fi- 
chier ouvert doit dorénavant être ex- 
plicitement fermé. 

— Le programme CONVERT se 
plante lamentablement à la lecture 
du catalogue d'une disquette Dos 3.3 
contenant  FICHDIR! Prudence 
donc. 


4 En règle générale, l'enregistrement 
numéro zéro est utilisé de manière 
particulière: il contient souvent le 
nombre d'enregistrements du fichier. 


Méthodes de conversion 


Revenons à notre objectif de conver- 
sion de fichiers directs. Trois métho- 
des peuvent être envisagées 


1 Conversion du fichier direct en fi- 
chier séquentiel. puis conversion de 
ce dernier par Convert, enfin re- 
conversion du résultat en fichier di- 
rect D'où un total de 3 à 4 disquet- 
tes dont une 1 à 2 intermédiaires. 
donc beaucoup de manipulations et 
beaucoup de temps. plus la nécessité 
que tous les enregistrements aient été 
écrits au préalable, ne serait-ce que 
par un simple Return C'est la mé- 
thode préconisée jusqu'à présent 

2 Re-formatage logique de la dis- 
quette DOS 3.3 en disquette 
ProDOS (ou vice-versa), sans altérer 
le contenu du ou des fichiers. C'est 
la méthode la plus rapide mais égale- 
ment la plus hasardeuse et 
complexe. compte tenu des systèmes 
différents d'allocation des blocs et 
secteurs. 


3. Lecture et écnture simultanée de 
chaque enregistrement par l'utilisa- 
tion conjointe en mémoire des deux 
systèmes d'exploitation. Cette mé- 
thode n'utilise aucune disquette inter- 
médiaire, n impose qu'un seul accès 
à chaque enregistrement. et est relati- 
vement facile à programmer en Ap- 
plesolt. lorsque les problèmes de co- 
habitation mémoire sont résolus 


Cette dernière méthode a été rete- 
nue pour le programme CQFD (pour 
Conversion Qualifiée de Fichiers Di- 
rects |}. qui impose la disponibilité de 
deux lecteurs de disquettes (ou un 
lecteur et un disque dur. pourquoi 
pas ?). ce qui ne devrait pas être une 
contrainte importante. les fichiers à 
accès direct étant généralement utili- 
sés dans un environnement quasi- 
professionnel. En revanche. les enre- 
gistrements peuvent ne pas avoir été 
initialisés. les erreurs ‘End of Data” 


étant interceptées et gérées par le 
programme 


Utilisation 


Une fois mis en place. CQFD 
convertit automatiquement tout fi- 
chier direct. selon différents paramè- 
tres modifiables, et propose des va- 
leurs par défaut : — nom des fichiers 
origine et destination: 

— enregistrements terminés où non 
par un Return: 

— longueur totale d'un enregistre- 
ment (y compris l'éventuel Return); 
— nombre de champs séparés par un 
Return dans chaque enregistrement: 
— numéro de début et fin des enre- 
gistrements à convertir: 


— et. bien sûr. le sens du transfert : 
DOS vers ProDOS ou l'inverse 


L'utilisateur a la possibilité de donner 
des commandes directes DOS 3.3 ou 
ProDOS sans soitir du programme 
afin. par exemple, de modifier les 
numéros de slot et drive du Dos ou 
le Prefix ProDOS. D'autre part, afin 
de minimiser le temps d'exécution, 
les enregistrements ne sont pas lus et 
écrits un par un, mais par bloc de 
plusieurs dizaines à plusieurs milliers 
selon la capacité mémoire disponible. 


"CQFD” se compose de trois par- 
ties 

— le programme Applesoft CQFD: 

— le module utilitaire en assembleur 
CQFDB (source CQFD.B.S en Big 
Mac). 

— le fichier CQFD DOS 16K {voir 
plus loin). 

Tous trois doivent être placés sur une 
disquette ProDOS {ils peuvent être 
transférés sans problème par 
Convert). Après avoir ‘’booté” sous 
ProDOS, on lance le programme par 
un simple RUN CQFD 


Dix messages d'erreur peuvent être 
générés par le programme: il est bon 
de les détailler : 


— Fichier non précisé : il faut saisir 
les paramètres de conversion avant 
de demander le transfert. 

— Fin brutale de fichier la fin du fi- 
chier a été rencontrée. Les enregis- 
trements lus à zéro binaire ne provo- 
quent pas cette erreur; en revanche. 
la lecture d'un fichier tellement clair- 
semé (creux) que certains blocs de 
données n'ont méme pas été alloués 
par le système d'exploitation engen- 
drera cette erreur I est alors néces- 
saire de définir une plage moins 
étendue d'enregistrements 

— Erreur Système : une (improba- 
ble ?} erreur dûe au programme 


Les autres messages d'erreur s'expli- 
quent par eux-mêmes L'interruption 
par CTRL-C est gérée par le pro: 
gramme: en revanche, le Reset agit 
comme à l'habitude 


Démonstration du programme 


Deux fichiers directs de démonstra- 
tion (présents sur la disquette d'ac- 
compagnement) peuvent être utilisés 
pour obseiver le fonctionnement du 
programme : 

— CQFDTESTI contient quinze en- 
registrements (0 à 14) de longueur 
unitaire 24 contenant chacun trois 
champs de 7 caractères suivis d'un 
Return. 

— CQFD.TEST2 contient quatre en- 
registrements. numérotés 1. 19. 33 et 
73 de longueur unitaire 8. contenant 
un champ dont les 8 caractères sont 
significatifs. 


Pour vérifier le bon fonctionnement, 
il suffit de convertir un fichier dans 
un sens puis dans l'autre (sous un 
nom différent !} puis de comparer le 
fichier original avec le fichier résultat, 
soit par un des utilitaires disponibles 
(le Filer de ProDOS par exemple). 
soit par la commande TDUMP 
(Pom's 12 p 28) 


Fonctionnement interne 


Le programme repose sur la pré- 
sence simultanée en mémoire de 
ProDOS et du DOS 33, d'où un 
premier problème : où les placer ? 
ProDOS se loge, dans sa version 
commercialisée. sur la partie haute 
de la mémoire. En revanche le DOS 
est relogeable et une disquette Mas- 
ter peut le placer en 16K, 32K ou 
48K. selon la configuration mémoire 
de l'Apple. 


A l'évidence. la version 16K s'impo- 
sait: néanmoins comment obtenir 
une version assemblée en 16K lors- 
que l'on ne possède que des Apple 
de 48K ou plus? Le pett pro- 
gramme CQFD DOS. 16K.CREATE. 
listé plus loin. génère le fichier 
CQFD.DOS.6K qui est l'image ins- 
tantanée du DOS issu d'une dis- 
quette Master avant qu'il ne se re- 
loge en 48K et charge le programme 
de HELLO. Ce programme n'est 
destiné qu'aux lecteurs de Pom's qui 
n'ont pas la disquette de ce numéro. 
Je n'en détaillerai pas te fonctionne- 
ment car il est bien peu orthodoxe... 


Bref, vous avez les 3 fichiers CQFD. 
CQFDB et CQFDDOS.I6K que 
vous avez transférés vers une dis- 
quette ProDOS et vous lancez le pro- 
gramme CQFD. Celui-ci charge les 
deux autres fichiers (lignes 6000) et 
fixe LOMEM et HIMEM {ligne 150) 
afin d'obtenir l'allocation mémoire 
suivante : 


{fichier CQFDB en 

$0300) 

re : programme Apple- 
soît - 
$IAA6-$ICFEF : buffer Dos 3.3 
ON RP EE Dos 3.3 en version 
16K 

$4000-$95FF . variables Applesoft 
$9600-$97FF : buffer de fichier 
ProDOS 

$9800-$FFFF : ProDOS + Applesoft 
+ Moniteur sur Rom et carte langage 


Le DOS 33 est démarré à froid pour 
qu'il s'initialise sans effacer le pro- 
gramme puis on lui fait comprendre 
que. pour une fois, les variables du 
Basic se situeront au-dessus de lui. 
Simultanément, on indique à 
ProDOS que les routines d'entrée / 
sortie seront gérées par le Dos ligne 
6500) Maintenant qu'ils ont fait 
connaissance, on obtient la hiérarchie 
suivante pour l'interception des en- 
trées / sorties : 

1-en premier le DOS 

2-puis ProDOS 

3-qui renvoie à l'Applesoft 

d-et finalement c'est le Moniteur qui 
travaille ! 


Un petit POKE permet de définir 
CHR (2} comme caractère de réveil 
du DOS, CHR$ (4) restant dirigé 
vers ProDOS ligne 3000) Tout se- 
rait parfait dans notre petite famille. 
malheureusement. à chaque erreur, 
les deux systèmes d'exploitation se 
montrent insupportablement égoïstes 
et tentent de se reconnecter en tète 
de la hiérarchie: or ce ne sont pas les 
erreurs qui manquent, ne seraient-ce 
que les “End of Data” à ja lecture 
des enregistrements vides! Il faut 
alors patiemment reconstruire la py- 
ramide, c'est le rôle du module 
CQFD.B qui comprend plusieurs par- 
ties 

— redirection des entrées / sorties 
entre DOS et ProDOS, 

— initialisation à froid du DOS sans 
perte ni arrêt du programme: 

— routine fixant le bug du traitement 
d'erreur de l'Applesoft: 

— routines de saisie générale : & 
INPUT accepte les virgules et autres 
caractères insolites: & GET pennet la 
lecture de plusieurs caractères et leur 
concaténation pour former une varia- 
ble Applesoft (syntaxe: & GET 
<nom Variable>, <longueur varia- 
ble>} 

— interception des erreurs de lecture 
du DOS car celui-ci (bug que j'igno- 
rais !} “oublie” la longueur des enre- 
gistrements d'un fichier direct après 


âfin d'accélérer le programme de 
transfert. les enregistrements sont lus 
et écrits par bloc. La taille du bloc 
(détenninée en ligne 753) pennet 
une utilisation optimale de la mé- 
moire vive disponible (compte tenu 
des besoins de ProDOS pour ses 
buffers). 

En corollaire ie programme utilise un 
système d'allocation et libération dy- 
namiques pour le tableau A$(MN) 
contenant tous les champs de tous 
les enregistrements du bloc en 
cours : quelques PEEKs et POKEs 
(lignes 1010. 1070. 1237, 1240) suf- 
fisent, pourvu que le tableau soit la 
dernière variable Applesoft déclarée 
dans le programme. 


Quelques remarques générales avant 
de terminer : 


1. Le programme peut être modifié 
dans la mesure où il ne dépasse pas 
la dizaine d'octets restant disponibles 
avant le buffer du DOS (on peut éli- 
miner les remarques): néanmoins, at- 
tention à certaines instructions d’ap- 
parence anodine (telles que l'INPÜT 
de la ligne 6060) qui sont néanmoins 
nécessaires pour l'initialhisation et 
l'équilibre du système. 

2. L'allocation de l’espace disque est 
moins efficace sous DOS 3.3: vous 
pouvez donc obtenir des erreurs 
"DISK FULL” en convertissant de 
ProDOS vers DOS, et à plus forte 
raison à partir d'un gros fichier sur 
disque dur. 


3. En sortant du programme, vous 
avez la possibilité de conserver les 
deux systèmes d'exploitation actifs. 
La hiérarchie décrite ci-dessus reste 
valable mais les interceptions ne sont 
pas prévues pour une utilisation di- 
recte des commandes : essayez (c'est 
sans risque) et comparez ! Pour acti- 
ver un système ou l'autre, allez sous 
le Moniteur et tapez sur la même 
ligne : 
e O [ctrl-P} O fctrl-K] BEO0G pour 
ProDOS 
e O [ctrl-P] O [ctrl-K] 1DBFG pour 
DOS 


Deux observations : 

1} sous DOS ou l'Applesoft, l'appui 
sur la touche Retum provoque un 
double saut de ligne. sous ProDOS 
un seul saut est généré. 

2) N'oubliez pas que les commandes 
PR#, IN#, LOAD et SAVE sont à la 
fois des instructions DOS, ProDOS et 
Applesoft. lequel des trois réagit en 
premier ? 


$0000-$07FF : mémoire partagée un ‘End of Data” = 
1 REM xx COFD.DOS.16K.CREATE *#+# : POKE 16384,0: PRINT D$S"RUN CGFD. 
2 REM AÀ/251084/UI1 DOS.1é6K.CREATE" 

10 D$ = CHR$& (4) 110 TEXT : H8ME : PRINT “GENERATION DOS 
29 F$ = *“CQFD.D0S.16K* 3.3 SUR ENVIRONNEMENT 16K" 

100 IF PEEK (104) = 8 THEN POK£E 104,64 120 PRINT PRINT INPUT "INSEREZ UNE D 


10 
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ISQUETTE MAITRE (AVEC DOS RELOGEA 
BLE) EN SLOT 6, DRIVE 1 --3>° ;2% 


130 A$ = "300:A0 0 B9 O0 Cé 99 0 96 88 D9 
F7 A9 60 BD F8 96 20 0 96 A9 60 8D 
4 8 20 1 8 A9 60 BD 47 37 4C EA 
3°: GOSUB 700 
135 ÀA$ = "230<300.3CFM°": GOSUB 700 
150 CALL 560 
155 POKE 49384,0 
160 HOME :* PRINT "INSEREZ UNE DISQUETTE 
RECEPTRICE DU* ,"FICHIER "F$" EN SL 
OT 6, DRIVE 1:"3;: INPUT °";2$ 
170 PRINT D$°BSAVE"F$° ,A$1D00 ,L$2300,Sé, 
D1,V0" 
180 PRINT "FICHIER GENERE.": PRINT D$"FP 
700 A$ = A$ + “ ND9CéG": FOR 1 = 1 TO LE 
N <A$): POKE S11 + I, ASC © MIDS 
A$,1,1)2 + 128: NEXT POKE 72,0: 
CALL — 144: RETURN 
1  REM CGFD 
2 REM {C) 1984 Aiexandre Avrane 
3 REM 25/oct/84 
4 REM Version 8.4 
100 NOTRACE : ONERR GOTO 8500 
115 IF PEEK (175) + 256 x PEEK (176) > 
6810 THEN FLASH : PRINT "PROGRAM 
ME TROP GRAND!" : NORMAL : END 
117 IF PEEK (552 © > 183 THEN FLASH : 
PRINT "UOUS N’'ETES PAS SOUS PRODO 
S'®: NORMAL : END 
120 PRINT CHR$ (4)"CLOSE": POKE 116,150 
: GOSUB 5000: IF PEEK (768) €  } 
216 THEN GOSUB 6000 
150 GOSUB 6500: POKE 105,0: POKE 106,64: 
POKE 115,0: POKE 116,150: CLEAR 
170 GOSUB 3000 
580 GOSUB 2000 
190 J = 0: GET A$: FOR 1 = i TO LEN (T$) 
tJ = J + (AS = MID$ CT$,1,1)}: NE 
XT : IF NOT J THEN 190 
499 REM GESTION DU MENU 
500 PRINT : ON A$ = "T" GOTO 1000: ON A$ 
= "F* GOTO 700: IF A$ = "C" THEN 
X#8(0) = CHR$ (2) + "CATALOG,S" + 
STR$ (DS) + ",D" + STR$S (DD) :X$( 
1) = CHRS (4) + "CAT" + PF$: TEXT 
: HOME : PRINT X$(S): GET 25% 
530 IF ÀA$ = "S" THEN S = 1 - S 
940 IF ÀA$ = "P*" THEN TEXT : HOME : PRIN 
T "Commande ProDOS:": PRINT “-)":: 
& INPUT 2%: IF 2$ < > "" THEN 
PRINT CHR$ (4)22$%: GET 2%: GOTO 54 
0 
550 IF ÀA$ = "D° THEN TEXT : HOME : PRIN 
T “Commande Dos 3.3:": PRINT "=>"; 
t & INPUT 2$: IF 2$ < ) “" THEN 
PRINT CHR$ (2)2$%: GET 2$: GOTO 5 
50 
S55 DS = PEEK (14313) / 16:DD = PEEK (1 
4314): IF ÀA$ < > "X" THEN 180 
570 PRINT : PRINT CHR$ (2)"CLOSE": PRIN 
FT  CHR$ {4)"CLOSE": HOME : PRINT 
PRINT “P: Retour sous Applesoft + 
ProDOS","D: Retour sous Applesoft 
+ Dos 3.3","': Retour sous Apples 
oft + ProDOS+Dos" 
580 GET 2$: IF 2$ < > CHR$ (27) AND 2$ 
< > "D" AND 2$ € > "P" AND 2% «< 
> "!* THEN 580 
585 ON 2Z$ = CHR$ (27) GOTO 1: TEXT HO 
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600 


610 
699 


700 


ME : IF 2$ = "D" 

(2) °FP" 

IF 2$% = "P*" THEN PRINT CHR$ (4)“PR 
#0": PRINT CHR$ (4)* INHO* 

END 

REM SELECTION OÙ FICHIER 

UTAB 13: CALL - 958: PRINT : POKE 3 
4,12: POKE 35,22: PRINT PRINT °N 
om du fichier origine:":X$ = F1%: 


THEN PRINT CHR$ 


GOSUB 7000: IF 2$ < > ““ THEN F1$ 
= 2$ 
720 F2$ = F1$: PRINT : PRINT "Nom du fich 
ier destination:":X$ = F2$: GOSUB 
7000: IF 2% < }> “* THEN F2$ = 2$ 
725 PRINT PRINT “Enregistrements termi 
nts°,"par un retour-chariot <o/n) 
O"B$S(1);: GOSUB 7100:LX = 2: IF 
NOT &X THEN LF = 1 
730 PRINT : PRINT ‘Longueur totale d’un 
enregistrement:":X$ = STRS CLR): 
GOSUB 7000: IF 2 AND Z < Ké4 THEN 
LR = 2 
750 IF LX THEN PRINT : PRINT "Dans chaq 
ue enregistrement ,","nombre de cha 
mps s{par(s°,"par un retour-chario 
:':X8 — STR$S (LF): GOSUB 7000: 1 
F Z AND 2 € Kéq4 THEN LF = à 
753 B/ = FRE (0) - 2048) / CLR + 3 »* LF 
+ 9) 
755 IF LR + 3 x LF > FRE <O0O) THEN PRIN 
T CHR$ (7) CHR$ (7): INVERSE : PR 
INT "TAILLE D’1 ENRGT > MEMCIRE D! 
SPONIBLE" ;: NORMAL : GET 2$: GOTO 
700 
760 PRINT : PRINT “No premier enrgt:":X$ 
æ STR$ (R1)2: GOSUB 7000: IF 2 > 
— 1 AND 2 € Mié THEN Ri = 2 
770 R2 = INT CMié / CRD: PRINT : PRINT * 
No dernier enrgt:":X$ = STR$ (R2) 
: GOSUB 7000: IF 2 > = R1 AND 2 < 
Mié THEN R2 = 2 
780 GOTO 180 
999 REM CONWERSION 
1000 HOME : IF F1$ = “* THEN ER = 2: GOS 
UB 8000: PRINT : GOTO 180 
1005 Ii = R1:12 = R1:K = O:T = O:ER = 0 
1010 POKE 7, PEEK (109): POKE 8, PEEK (1 
10): DIM A$S(BZ - 1,LF - 1) 
1030 REM LECTURE 
1040 PRINT DI1$"OPEN"F1$",L"LR: CALL 928 
1070 POKE 3, PEEK (1113: POKE 4, PEEK (1 
12) 
1075 FOR J = 0 TO 8% - 1 
1080 : PRINT D1$"READ"'FI1$" ,R'"I1 
1090 : PRINT "Lecture #"Ill; 
1100 : FOR K = O TO LF - 1 
1110 : IF LX THEN & INPUT A$(J,K): GOTO 
1130 
1120 : & GET A$(J,0) ,LR 
1125 IF S THEN VTAB PEEK (37) 
1130 IF LEN <A$CJ,K)3 THEN IF NOT AS 
C < LEFT$ CA$S(CJ,K),1)} THEN A$(J,K 
) = .. 
1135 HTAB 10 + LEN € STR$ C1i93}: CALL 
— 868: PRINT ,A$CJ,K);5: IF NOT L 
EN (A$S(J,K)i THEN  INVERSE PRINT 
"VIDE" ;2: NORMALE :K = LF — 1 
1140 : PRINT : NEXT :11 = 11 + :t: IF I1 > 
R2 THEN J = 8% 
1150 : PRINT D1$: NEXT : PRINT D1$"CLOSE® 
F1$ 
1160 REM ECRITURE 
1165 PRINT ‘Ecriture #"12*-"11 = 1: PRIN 





T D2$"OPEN"F2$" ,L'LR 3090 DIM ER$(9): FOR 1 = O TO 9: READ ER 
1170 FOR J = 0 TO 8% -— 1! SCI): NEXT 
1175 : IF NOT LEN (A$(J,09)3 THEN 1220 3100 DATA xxx ERREUR SYSTEME *xx#%x%,FICHIER 
1180 : PRINT DZ$"WRITE"F2$* ,R"I2 NON PRÉCISE ,PARAMETRES DE TRANSFE 
1190 : FOR K = O TO LF - 1 RT INVALIDES,VOLUME OÙ FICHIER INC 
1200 :: PRINT A$CJ,K); ONNU ,DISQUE OÙ DIRECTORY PLEIN 
1205 :: IF K € LF — i THEN PRINT 3110 DATA FICHIER OU VOLUME VERROUIELE,T 
1210 : NEXT : IF LX THEN PRINT YPE DE FICHIER INVALIDE,ERREUR D'E 
1220 :12 = 12 + i: 1F 12 > R2 THEN J = 8% NTREE/SORTIE,FIN BRUTALE OÙ FICHIE 
1230 : PRINT D2$: NEXT R, COMMANOE; PREFIXE OU FICHIER INV 
1235 PRINT D2$"CLOSE"F2$ ALIDE 
1237 POKE 10%, PEEK (7): POKE 110, PEEK 4999 - REM MODULES UTILITAIRES 
(8) 5000 TEXT : COLOR= 2: FOR I = 47 TO O ST 
1240 POKE 111, PEEK (3): POKE 112, PEEK EP — 1: HLIN 0,39 AT 1: NEXT 
(4): IF 11 € = R2 THEN 1010 TURN 
1280 FLASH : PRINT PRINT SPCC 5)"##%# 6000 PRINT CHR$& (4)"8LOAD DOS.16K,AS1D0 
CONVERSION TERMINEE ###" SPC< 6) C 0° 
HR$ (73: NORMAL : WAÏT 49152,128: 6010 POKE 10929,1: POKE 10930,130: REM m 
GOTO 180 axfiles=i & ctri-b 
1999 REM MENU 6020 PRINT CHR$ (4)"BLOAD CGFD.B,4$300" 
2000 GOSUB 5000: VTAB 1: PRINT "CONVERSI | 6030 CALL 776: POKE 1014,60: POKE 1015,3 
ON QUALIFIEE DE FICHIERS DIRECTS": 6050 GOSU8S 6500 
PRINT. SPCC 7)"{C) 1984 ALEXANDRE | 6060 TEXT : CALL - BéB: INPUT "Appuyez 
AVRANE" SPC 8): POKE 33,38: POKE sur <Return> pour commencer:";2%: 
32,1: POKE 34,5: POKE 35,23: HOME RETURN 
ei 6500 PRINT CHR$ (4)"PR#A$S300": PRINT C 
e— 2030 PRINT C$(1)°"PREFIX": INPUT PF$ HR$S (4)"INHAS304d": RETURN 
(a! 2040 DI1$ = C$CS):02$ = C$(1 - S):A$S = F1$ | 7000 PRINT "==)"X$B#$< LEN (X#2)3;: INPUT 
le 1F A$ THEN A$ = À$ + ",L" +  STR NNi2$iz = CINT (VAL Ves)p2 FF 25 
ET $ CLR) = "" THEN VTAB PEEK (37): HTAB 4 
LA 2060 PRINT SPCC 8)2S$(S): PRINT : PRINT PRINT X$ 
= " Dos 3.3: S"DS",0"DD: PRINT " Pro | 7010 RETURN 
4 D0S : “PF: PRINT *® Fichier: “AS: 7100 GET Z$: ON 2$ < > CHR$ (13) AND 2 
| FOR I = 1 TO 38: PRINT "“_";: NEXT $S < > "N" AND Z2$ € > "D" AND 25% 
“ 2080 PRINT : PRINT “ P: Donne une comman € > “n" AND 2$ < > "o”" GOTO 7100 
È de ProDOS": PRINT “ D: Donne une c 1: PRINT 2$:2 = (2% = "O" OR Z2$ = " 
- ommande Dos 3.3*: PRINT " S: Inver o" OR Z$ = CHR$ (13): RETURN 
se le sens du transfert" 7999 REM GESTION DES ERREURS 
2090 PRINT “ C: Catalogue volume origine | 8000 HOME : PRINT :ER = VAL ( MID$ (PES 
“: PRINT * F: S£lection du fichier (TD ,ER,1)) 
"3 PRINT * Ti Transfert & conversi | 8010 HTABS 19 - LEN CERS(CER))I / 2 + .5: 
on": PRINT “ X: Sortie" FLASH PRINT CHR$ C7)ER$S(ER) CHR 
2100 PRINT HTAB 17: PRINT “-}»> <—-"3:2: HT $ 473: NORMAL PRINT : PRINT “Re 
AB 19: RETURN turn]l-d>continue, L[Esci->abandonne" 
2999 REM INITIALISATIONS ; 
3000 OIM CH(1):CHC0) = CHR$ (2):CHB1) = 8020 GET 2%: IF 2$ = CHR$ (27) THEN PR 
CHR$ (4): POKE 10930,130: REM ct INT RUN 
rl-B pour DOS 8030 IF 2$ = CHR$ (13) THEN RETURN 
3020 T+$ = "“POSCFTX*: DIM X$(12:S = 0: REM | 8040 GOTO 8020 
sens initial 8500 CALL 818:T = ( PEEK (55) = 183): CA 
3050 DIM S$(1):S$(0) = "DOS 3.3 —----> PR LE 804: REM virifie Dos actif etr 
0D0S":S$<C1) = "PRODOS ----> DOS 3. {tablit Probos 
3“ iMié = 16777215:Ké4 = 6SS36:ÈLR = | 8520 ER = PEEK (222) + 1: IF ER > 254 TH 
1:EF = 1 EN 570 
3060 DS = PEEK 48700) :DD = 3 - PEEK (4 | 8523 IF ER = 6 AND NOT PEEK «986) AND 
8701): REM sur autre drive par d(f NOT T THEN 1130 
aut 8525 IF ER > 18 THEN ER = 1! 
3070 DIM 8#(30):8$(1) = CHR$ (8): FOR 1 8550 GOSU8 8000: PRINT : RESUME 
= 2 TO 30:B$<1) = 8${1 — 1) + CH | 11000 PRINT CHR$ (4)"PRH1": PRINT  CHR$ 
R$ (8): NEXT C27)"ÀA" CHR$S CS): PRINT CHR$ (9) 
3080 DIM PES(1):PES(0) = "01225833745906 "SON": LIST 0,9999: PRINT CHR$ «4 
°01875833/459060994 )"PRKO": END 


0900":PES(C1) = 
a À 


*#* fichiers directs) 16 #2 36 26 36 26 36 DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE JE DE JE DE DEN 
17 x VECTORISATION E/S PRODOS-)>D0S * 


18 xx 36 36 36 JD DE DE DE DE DE DE DE DE DE DE DE DE JE DE JE JE JE JE JE JE JE DE DE 


l HAS ARARIRERRARIERSEEERSHHR HE RAR SE 10 x 20/oct/84 

2 * CAFD.B * 11 

D 2 36 36 6 DE DE DE DE DE DE HE DE DE DE DE DE DE DE DE DE DE DE DE D DE DE DE DE DE DE D 12 # Toutes adresses pour dos en 1é6K 
4 13 

9 * Module appele par CGQFD 14 ORG +$5300 

é *# (conversion qualifiee de 15 

7 

8 

9 


*# Copyright <C) 1984 A.Avrane 
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20 # Ces routines doivent debuter par 
un ’CLD” pour être validees 


21 

22 CLD 

23 JMP  S$SIEBD dos 3.3 cs 
w 

24 CLD 

25 JMP  $1E81 dos 3.3 ks 
w 

26 


27 #2 XX D EX DE DE JE DE DE JE DE DE 6 JE DE 6 JE JE DE 6 JE DE 6 JE EE 6 


28 *x INITIALISATION PRODOS+DOS 16K * 
29 RHHEHHNHHMMN HOMME NE NE NE HE DE NE EN DE DE DEEE NE 


31 LDA 4H#$60 ‘RTS’ 

32 STA S$1DE?7 pour retou 
r apres demarrage a froid 

33 JSR $FE89 pr#o 

34 JSR S$FE93 in#hO 

33 JSR $iD84 ie dos s”i 
nitialise en $1D00-$3FFF 

36 

37 LDA #$A0 caractere 
blanc envore a l'affichage... 

38 LDX #0 

39 LOY #0 

40 JSR $1E80 -..pour te 
rminer l’initiatisation du dos 

41 

42 LDA 4H$6C ‘JMP*_ indi 
rect retablit ie Dos... 

43 STA $1DE7 pour pe 
rmette la commande “FP* 

44 

45 JSR $FE89 pr#0 

46 JSR $FE93 in#O 

47 JSR S$9AAF ProDos pre 
nd la main sur csw/ksuw 

48 LDA #0 

49 STA $24 initiaïise 
htab pour ProDos 

50 RTS 

51 


S2 #6 XX D DD DE 56 DE DE JE DE D DE DE JE DE DE DE DE DE JE DE XXE Xe Xe 


53 *# ROUTINE D'ERREURS D‘'APPLESOFT * 
DA 2 26 26 26 26 DE DE DE 26 6 DE DE DE DE DE DE DE DE DE D DE DE DE DE 26 6 DEEE 6 


36 PLA 

97 TAY 

98 PLA 

97 LOX $DF retablit ] 

 Pornteur de pile 

60 TXS 

é6i PHA 

62 TYA 

63 PHA 

64 RTS 

65 


OO EREERRRRÉRERERERERRREREREREERÉEREREEE 


67 * ROUTINE DE SAISIE PAR ‘INPUT: *# 
GS 226 26H HN DE DEEE DE DE DE DE DEDEODE DEN DE DE DE DE DE DE DE DE DE DE DE DE 


69 

70 CMP  HSBE toKken de G 
ET? 

74 BNE INPUT non 

72 JSR ‘+$008B1 lit le car 
actere suivant 

73 JSR  $DFE3 cherche ou 
cree la variable, fixe $83 

74 PHA 

75 TYA 

76 PHA 
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86 


JSR $DD6C contrèêle 
qu’il s’agit d’une chaîne 
JSR $DEBE verifie ja 
presence de la virgule 
JSR $E6F8 recoit la 
longueur demandee... 
STX $0é6 rise tar 
auvegarde 
PLA 
STA $83+1 restore $8 
3=adresse du descripteur de ta var 
iabie 
PLA 
STA $83 
LDX #0 
LOOP JSR $FDOC jit un car 
actere.., 
STA $200,X et le stoc 
ke dans le buffer d’entree 
JSR $FDED on l'envoi 
e en sortie via les Dos 
INX 
CPX $06 suffi samme 
nt de caracteres? 
8CC LOOP pas encore 
BCS TRANSFER =jmp 
INPUT LDA #$584 tokKen d’IN 
PUT 
JSR $DECO verifie pr 
esence du token 
JSR S$DFE3 
JSR $0046C 
LDX ##80 
STX $33 trompe Île 
moniteur et... 
JSR $FD6A *..appelle 
sa routine d’entree ligne 
STX $06 on conserv 22 
e la longueur : 
TRANSFER JSR $D539 formatte 1] 4. 
a chaîne pour fApplesoft es 
LDA $06 on prend I] te 
a fongueur... va 
JSR $E452 ...et on d 22 


emande de la place en memoire 


LDX #H#<$200 

LDY #>5200 le buffer 
clavier contient notre chaîne, 

JSR $ESE2 on la depl 
ace a où on a trouve de la place 


tLDr #4Ù 
LDA #$04 
à longueur... 
STA (583) ,Y 
descripteur 
INY 
LDA $56F 
son adresse de stockage 
STA (583) ,Y 


on place s 
LJ 


--.dans le 


ainsi que 


INY 

LDA $6F+1 

STA ($583),Y 

RTS ; c’est fin:! 


DEEE DE DEDE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE JE JE JE JE NE Xe Xe Xe Xe Xe 
* PATCH DU DOS 3.3 POUR LECTURE +* 
DE DE DE DE DE DE DE DE DE DE DE DE D DE DE 6 DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE 
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127 LDA ##4C ‘jmp’ init blie" le parametre L d’un fichier. 
jalise le patch ee 
128 STA 9$22B7 f4é STA $2A6C *..àa chaqu 
129 LDA #<P e erreur, même interceptee par 0 
130 STA +$22B7+1 NERR 
131 LDA #)P 147 LDA $22BA+I [1 faut do 
132 STA $22B7+2 nc jui rappeler si... 
133 LDA $2Aé6C sauvegarde 148 STA $2A6C+1 ...0on ne 4 
les valeurs de longueur d’enrat, eut pas constamment reouvrir le fi 
134 STA $22BA chier 
135 LDA $2AéC+r! 149 JMP  $22BC 
136 STA $22BA+1I 150 
137 LDA #<Q et patch p {51 FLAG‘EOF DFB 0Q 
our fin de fichier 152 Q LDA #1 

138 STA $2CB9 153 STA FLAG'EOF indique fi 
139 LDA #)>Q n de fichier Cet non donnee nulle) 
140 STA $2CB9+1 se 
141 LDA #0 154 JMP  $336F -.-part en 
142 STA  FLAG*EGF END OF DATA intercepte par ONERR 
143 RTS GOTO 
144 155 
145 P LDA $22BA le dos “ou 156 END 

Re 300.3E2 0348- 48 20 6C DD 20 8E DE 20 03A0- A9 4C 80 87 22 AS CB 80 
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0330- 24 60 68 A8 68 A6 DF 9A 
0338- 48 98 48 69 C9 BE DO 2C 
0340- 20 Bi 00 20 E3 DF 48 98 


0348- 88 22 A9 03 80 87 22 AO 
0380- 4C 24 8D BA 22 AD 6D 2A 
0388- 8D 88 22 A9 D8 80 87 2C 
03C0- A9 03 BD 8A 2C A9 00 8D 
03C8- D4 03 60 AD BA 22 80 6C 
0300- 24 AD 88 22 80 60 2À 4C 
0308- 8C 22 00 A7 0j 8D DA 03 
03E0- 4C 6F 33 


0350- F8 Eé 86 06 68 85 84 4B 
0358- 85 83 À2 00 20 OC FD 90 
0360- 00 02 20 ED FD E8 E4 064 
0368- 90 F2 80 14 A9 84 20 CO 
0370- DE 20 E3 DF 20 6C DO A2 
0378- 80 86 33 20 6A FD 86 06 
0380- 20 37 DS 4S 06 20 52 E4 
0388- À2 00 A0 02 20 E2 ES A0 
0370- 00 ÀS5 06 91 83 C8 AS 6F 
0398- 91 83 C8 AS 70 91 83 60 


0300- D8 4C 80 1E D8 4C 8{ 1E 
0308- A9 60 8D E7 1D 20 89 FE 
0310- 20 93 FE 20 84 1D A9 AG 
0318- A2 00 ÀC 00 20 80 1E A? 
0320- 6C 80 E7 10 20 89 FE 20 
0328- 93 FE 20 ÀAF 9A A9 00 85 





BONJOUR LES PRIX! 


NOS PRIX SONT F FC 




















Carte langage 400 Speech card 320 
Carte 128 k ram 1550 Carte horloge 500 
Carte 80 colonnes 700 Joystick 165 
Interface série 520 Ventilateur 280 
Super série 1000 Contrôleur de drive 370 
Interface parallèle 380 Lecteur Disk “Slim” 1900 
Grappler+buffer 16 k 1350 Moniteur vert 12" 950 


Disquettes 5” 1/4 SF./S.D. par 1 boîte 130/boîte 
Disquettes 5” 1/4 S.F./D.D. par 1 boîte 175/boîte 


AU-DESSUS, NOUS CONSULTER. 


Carte modem Intégré 1085 
Carte Z 80 410 
Wildcard 400 


Carte bleue et eurocard acceptées 
Vente par correspondance: nous consulter. 


Computer 3 


3, rue Papilion 75009 Paris - Tél.: 523.51.15 


(métro Poissonnière) ouverture du lundi au samedi de 10 h à 19 h 30 





PRE TT TITT SES 
œur TE S'rots TPE" 


Pos n° 16 


Gérer la date 


Le système ProDOS, entre autres 
améliorations par rapport au DOS 
3.3, permet de dater les fichiers. Il 
prévoit, pour chacun d'entre eux, 
une date de création et une date de 
modification. Cette datation se fait 
automatiquement si l'Apple possède 
une carte horloge, malheureusement, 
rien n'est prévu pour ceux qui n'en 
ont pas et rien n’est plus désagréable 
que d’avoir des fichiers datés de NO- 
DATE... 

Heureusement. Apple à bien docu- 
menté l'emplacement et le format de 
la date du système; la date est sto- 
ckée sur 2 octets, en 49040 — 
49041 ($BF90 - $BF91). Une pre- 
mière solution consiste à mettre, soi- 
même, la date à jour. 


Démarche à suivre 


— Muiltiplier le numéro du mois par 
32 


— Soustraire 256 si le résulrat obtenu 
est strictement supérieur à 255 (ce 
qui se produt à partir du mois 
d'aoït). 

— Ajouter à ce résultat le jour du 
mois, on obtient alors un premier 
nombre A. 

— Multiplier l'année par 2 et ajouter 
1 si on a dû soustraire 256 à A; on 
obtient un deuxième nombre B. 

— Ï n'y a plus qu’à POKEr les nom- 
bres trouvés aux bonnes adresses ou 
les saisir sous le moniteur (si l'on 
préfère convertir en hexa...).' 
Exemple : le calcul, pour la date du 
21 décembre 1984, s'effectuera 
comme suit : 

A = 32 x 12 = 384. Il est supérieur 
à 255 et devient donc 

A = 384 - 256 = 128. Cette opéra- 
tion faite, on lui ajoute le jour. 

A = 128 +21 = 149. 

À étant trouvé on peut calculer B. 

B = 84 » 2 + 1 = 169. 

Nous arrivons à la dernière étape. 
POKE 49040,149 

POKE 49041,169 

ou encore : 

CALL-151 

BF90: 95 A9 

3D0G 


C'est peut-être fastidieux, mais c'est 
efficace. 


La deuxième solution consiste à em- 
plover un utilitaire, comme celui que 
nous vous proposons ici, qui réalise 
la même chose. Mieux encore. il 
garde en mémoire la dernière date 
entrée et permet de la modifier 


SOURCE FILE: OATE2.SCE 
0000: 
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ProDOS sans 


Grâce aux flèches gauche et droite 
on modifie le jour, utilisées avec 
"Pomme Pleine” on modifie le mois: 
l’année est changée automatique- 
ment (le passage de décembre à jan- 
vier entraîne une incrémentation et 
celui de janvier à décembre une dé- 
crémentation }; enfin la date affichée 
est acceptée par RETURN. 

En faisant le catalogue, on peut 
connaître la date de la demmière utili- 
sation d'un disque (puisqu'elle est 
stockée dans la directory comme 
date de modification du programme 
DATE). 

Le programme proposé peut être uti- 
lisé par la commande -DATE (smart 
RUN). Il est peut-être plus simple de 
l'inclure dans un programme STAR- 
TUP de manière à ce qu'il s'exécute 
automatiquement, en prenant garde 
de l'appeler sous la forme . 

PRINT CHR$(4);”-DATE" 

si on tient à avoir la vraie date (celle 
de modification de DATE). En effet, 
pour économiser les accès disque et 
la place mémoire, le programme uti- 
lise la table de paramètres du dernier 
programme auquel ProDOS a ac- 
cédé. 


Appel de ProDOS en 
langage machine 


L'utilisation des routines ProDOS est 
relativement simple par rapport au 
DOS 3.3 du fait qu'Apple a prévu 
une procédure et un point d’entrée 
uniques par un appel au Machine 
Language Interface (MLI). Les seules 
données à foumir sont: un code 
d'opération et l'adresse de la table 
des paramètres adaptée à cette opé- 
ration. 

JSR $BFO0 

DFB CodeOp 

DW Adr.Par 


Dans notre problème, on pourrait 
utiliser les codes suivants : 

$C4 : GET — FILE — INFO retour- 
nant les 15 paramètres définissant le 
fichier dans la directory 

$C3 : SET -— FILE — INFO réécri- 
vant les dits paramètres (à l'exclusion 
de ceux concernant la création évi- 
demment). 


Mais pour économiser de la place 
mémoire. de manière à ce que le 
programme tienne dans la zone 
calme de la page 3, on peut aussi 
utiliser l'accès à ProDOS contenu 
dans la ‘page globale’ du Système 


0000: 


À 6 6 36 26 6 JE EX DE 3 JE DE XXE EE EX 
HXÉKHHHEREEREXEXXE XX X EX X 


0009: 





carte horloge 


François Sermier 


Basic (page $BE). En effet, GOSYS- 
TEM utilise une table prédéfinie en 
page globale, dans laquelle on lit ou 
écrit les informations souhaitées: il ne 
reste plus qu'à charger le code opé- 
ration dans l'accumulateur et à appe- 
ler GOSYSTEM. De plus, comme on 
vient de charger DATE pour l’exécu- 
ter, cette table contient, avant même 
l'exécution de la première instruction 
du programme, les informations 
concemant le programme DATE. 
Grande économie de moyens ! 


Le programme DATE 


Il se décompose en trois blocs : 

e Lignes 31-45 : récupération de la 
date comme expliqué ci-dessus; 
décomposition en jour, mois et 
année, stockés aux adresses 9, 8, 
7 ainsi que dans les registres X, Y, 
A. 

e Lignes 48-109 : boucle principale; 
— 48-69 : affichage de la date en uti- 
lisant la routine LINPRT, de l'inter- 
préteur Basic, qui affiche en décimal 
le nombre hexadécimal dont l’octet 
de poids fort est en À et l'octet de 
poids faible en Ÿ (c'est la routine qui 
affiche les numéros de ligne Basic). 

— 70-109: saisie d’une touche au 

clavier. Si "Pomme Pleine” est en- 

foncée, on modifie le mois, l'incré- 
mentation ou la décrémentation se 
faisant par les flèches droite et gau- 
che (pour la flèche droite, on a prévu 
l'affichage en 40 ou 80 colonnes : les 
codes utilisés sont différents). Les vé- 
rifications de date sont très simples : 
jour compiis entre 1 et 31 quel que 
soit le mois. Attention au 31 février ! 

On quitte la boucle par RETURN. 

— 112-132: assemblage des octets 

de DATE, stockage dans la date du 

Système et dans la table de paramè- 

tres puis appel de GOSYSTEM pour 

écrire ces informations dans la direc- 
tory. 


Remarque : on ne donne pas le nom 
du fichier utilisé ! En cas d'erreur, 
l'interpréteur Basic affiche le message 
correspondant. Si l'erreur MLI ne 
correspond à aucun message Basic, 
on récupère une [/O ERROR. 


Bibliographie : 

ProDOS Technical Reference Manual 
(APPLE) et Beneath Apple ProDOS 
de D.Worth et P.Lechner (Quality 
Software). 
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ns carte horloge # 033C:6B és PLA 
0000: 4 * mise 9 jour par 033D:AB éé TAY 

<— et —}> # 033E:88 67 DEY 
0000: 5 + 033F:10 E4 68 BPL PRI 

* 0341: 67 * 

0000: SG HE ED DE DE JE JE JE JE JE JE DE DE JE JE JE JE DE 0341:20 OC FD 70 JSR RDKEY 

JE 36 JE JE JE DE 6 JE 36 6 JE EE 6 € EE EE € À 0344:46 09 71 LDX JJ 
0000: 7 * 2346:A4 06 72 LDY MM 
0007: 8 AA EQU #7 1348:C9 95 73 CMP #9595 
0008: 9 MM EQU #8 134A:F0 04 74 BEQ ACCROIT 
0009: 10 JJ EQU $9 234C:C9 A0 75 CMP H$A0 
0000: 11 » 
8E09: 12 ERROUT EQU #$8E09 U34E:D0 1F 76 BNE  DECROIT 
BE70: 13 GOSYSTEM EQU $B8E70 0350:A4D 62 CO 77 ACCROIT LDA PDLI 
BEB4: 14 SSGINFO EQU %BEB4 0353:30 07 76 BMI ACRMOIS 
BEBE : 15 FIMDATE EQU $BEBE 0355:E8 79 INX 
gF90: jé DATE EQU S$BF99 0356:E0 20 80 CPX 432 
0000: 17 +* 0358:30 BA 81 BMI LOOP 
COé2: 18 PDLI EQU $C062 0354:A2 01 82 LDX #1 
DBSC: 19 OUTDO EQU #D85C 035C:C8 83 ACRMOIS INY 
ED24: 20 LINPRT EQU $ED24 035D:C0 00 84 CPY #13 
FCIA: 21 US EQU +$FCiIA 035F:30 83 85 BMI LOOP 
FC9C: 22 CLREOL EQU #FC9C 0361:A0 O1 86 LOY Hi 
FDOC: 23 RDKEY  EQU SFDO0C 0363:E6 07 87 INC AA 
FOBE: 24 CROUT  EQU %FD8E 0365:A5 07 88 LDA AA 
0000 25% 0367:C9 64 89 CMP  #100 
00C3 26 SETINFO EQU $C3 0369:30 A9 90 BMI LOOP 
0007: 27 SETPAR EQU #07 0368:A9 00 91 LDA HO 
0000: 28 2 DEEE DE DE JE DE DE JE DE DE JE JE JE JE D 036D:85 07 92 STA 

AAA 03é6F: 93 * 
nue NEXT OBJECT FILE NAME IS DATE2.SCE. 036F:C9 BB 94 DECROIT CMP #588 

08J0 0371:00 17 95 BNE  ENDLOOP 
GRO 27 Por 0373:AD 62 CO 96 LDA  PDLI 
0300: DO +222 2 26 XD Je JE 26 36 JE JE JE JE DE JE JE 6 0376:30 05 97 BMI DECMOIS 

cs 037B:CA 98 DEX 
0300:AD BF BE 31 LDA FIMDATE+1 03?79:D0 99 99 BNE LOOP 
CAN AAE sx Are 0378:A2 1F 100 LDX H31 
0304895107 33 STANIA 0370:88 101 DECMOIS DEY 
0306:AD BE BE 34 LDA FIMDATE 037E:D0 94 102 BNE LOOP 
03097:48 35 PRE 0380 :A0 0C 103 LDY #12 
EU ze ses) 0382:Cé 07 104 DEC AA 
re De ES 0384:10 BE 105 8PL  LOOP 
RNA e EURE 0386:A9 63 106 LDA #99 
LENS su RER 0388:85 07 107 STA 
QE dA 20 RS 038A:C9 8D 108 ENDLOOP CMP  H$8D 
Re + ae 038C:D0 86 109 BNE  LOOP 
0310:68 42 PLA 038€: Di 
0311:29 1F 43 AND ##$1F 038E: 111 +» 
0313:AA 44 Tax 038E:98 {12 TYA 
0314: 45 * 038F:0A 113 ASL A 
0314: 46 * 0390 :0A 114 AsSt A 
03i4:86 09 47 LOOP STX y 0391:04 115 ASL A 
0316:84 0B 48 STY MM 0392:04 116 asSt A 
0318:20 9C FC 49 JSR CLREOL 0393:0A 17 ASL A 
0318:20 B£ FD 50 JSR  CROUT 0394:05 09 118 ORRA JJ 
031E:20 1A FC Si JSR UP 0396:80 90 BF 119 STA DATE 
0321:A0 02 52 LDY #2 0399:80 8E BE 120 STA FIMDATE 
0323:D0 05 53 BNE  PR2 039C:AS 07 121 LDA AA 
0325:A9 2D 54 PRI LDA  #$2D 039E:2A 122 ROL A 
0327:20 5C DB 55 JSR  OUTDO 039F:80 91 BF 123 STA DATE+I 
032A:86 07 Sé PR2 LDX AAY 0342:8D BF BE 124 STA FIMDATE+! 
032C:E0 04 57 CPX #10 03A5: 125 +* 
032E:10 05 58 BPL PR3 03A5:A9 07 126 LDA  HSETPAR 
0330 :A9 30 59 LDA #$30 03A7:8D 84 BE 127 STA SSGINFO 
0332:20 5C DB 60 JSR  OUTDO 03AA:A9 C3 128 LOA  #SETINFO 
0325:98 6 PR3 TYA 0O3AC:20 70 BE 129 JSR  GOSYSTEM 
0336:48 62 PHA 034F:90 03 130 BCC OK 
0337:A9 00 63 LDA 8 0381:20 09 BE 131 JSR  ERROUT 
0339:20 24 ED 64 JSR LINPRT 0384:60 132 OK RTS 
0300- AD 8F 8E 4A 85 07 AD 8E 0340- E4 20 QC FD A6 09 A4 08 0380- AD OC Cé 07 10 BE A9 63 
0308- BE 48 &A 49A 4A 4A 4A A8 0348- C9 9S F0 04 C9 AS 00 !1F 0388- 85 07 C9 80 00 86 98 OA 
0310- 48 29 IF AA 89é 09 84 08 0350- AD 62 C0 30 07 E8 EO 20 0370- 0A OA 0À OA 05 69 80 70 
0318- 20 $C FC 20 8E FD 20 14 0358- 30 BA A2 01 C8 C0 00 30 0398- 8F 80 BE BE AS 07 2A 80 
0320- FC AO 02 D0 05 A9 20 20 0360- 83 A0 01 Eé 07 AS 07 C9 03A0- 91 8F 80 9F 8E A9 07 8D 
0326- SC D8 8é 07 E0 0A 10 05 0368- 64 30 A9 A9 00 85 07 C9 03A6- 84 BE A9 C3 20 70 BE 90 
0330- A9 30 20 SC DB 98 48 A9 0370- 88 DQ 17 AD 42 CO 30 05 0380- 03 20 09 BE 60 
0338- 00 20 24 ED 68 AB 88 10 0378- CA DO 99 A2 1F 88 DO 94 
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Votre Epson en mode proportionnel 


Les imprimantes Epson sont sûre- 
ment les plus vendues pour un sys- 
tème Apple il {aujourd’hui talonnées. 
je crois, par lImagewriter]. Mais, à 
part la plus performante (et chère !) 
FX-80. si je suis bien informé. au- 
cune Epson ne sait propoitionner ses 
lettres. Si vous en possédez une. 
vous direz certainement: ‘elles font 
bien d’autres choses !” Certes. mais 
à présent, vous n'aurez plus besoin 
de tenir une polémique avec votre 
voisin qui possède une imprimante 
proportionnelle pour savoir laquelle 
est la meilleure Grâce au pro- 
gramme que je vous propose ici 
vous obtiendrez, moyennant une 
perte de 1.75K de mémoire vive. un 
mode proportionnel sur votre Epson 
graphique. Parmi ces imprimantes fi- 
gurent tous les MX-type Ill. plus la 
RX-80 (que je possède). D'autres 
pourront éventuellement être utili- 
sées. moyennant une modification 
des codes d'initialisation du mode 
graphique double densité. Si votre 
imprimante n'a pas de double den- 
sité, on peut quand même tourner la 
difficulté en modifiant, d'une part. les 
codes à imprimer. et. d'autre part. 
PROPDEF pour les proportions 
‘vertical horizontal” en tenant 
compte du nombre d'aiguilles de la 
tête. 


Grandes lignes de 
fonctionnement 


Une grande partie des 1792 octets 
occupés est prise par la définition des 
caractères, sous une forme que j'ex- 
pliquerai plus loin. Un jeu de caractè- 
res “standards” est inclus. mais le 
programme PROP.DEF permet de 
modifier ces définitions. dont l'en- 
semble ne devra toutefois pas dépas- 
ser l'adresse $9500. soit environ 
1280 octets. Avec le jeu standard, 
252 octets restent libres. Cette défini- 
tion se scinde en deux part'es: la 
partie index et la partie des codes à 
passer directement à l'imprimante. 


Le programme lui-même ne fait que 
291 octets, à partir de l'adresse 
$8F00 Il se compose d'une phase 
d'initialisation. de la routine utilisée 
par l'ampersand (&). la routine d'en- 
trée des caractères à imprimer. et 
enfin la routine d'impression lors 
d'un retour chariot ou de saturation 
du buffer (sans retour chariot ni saut 
de ligne dans ce dernier cas}. L'en 
trée des caractères pour impression 
proportionnelle peut se faire de deux 
façons: par &. où par déviation du 
vecteur CSWL du DOS La première 
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possibilité est offerte par défaut, et la 
seconde peut être utilisée grâce au 
petit module nommé PREPROP (re- 
logeable et prenant 59 octets), qui 
sauve les registres internes avant de 
sauter directement dans la routine 
d'er.trée de PROP Le mode opéra- 
toire devient alors similaire à un 
PR#1 du DOS 


Principe de codage 


Le codage des caractères pour le 
module PROP est assez simple : il 
s'agit de codes à envoyer directe- 
ment à l'imprimante Le manuel de 
votre Epson donne des explications 
assez claires et je ne ferai donc qu'un 
bref résumé. 

La tête d'impression est composée 
de 9 aiguilles disposées verticale- 
ment. Le mode graphique consiste 
alors à imprimer un point à la posi- 
tion de chaque bit à 1. On associe 
ainsi les bits d'un octet aux aiguilles 
de la tête. Comme un octet ne fait 
que huit bits, il est clair que l'une des 
aiguilles reste inactive: c'est la plus 
basse On ne peut donc avoir que 8 
points verticaux. Toutefois, en ayant 
recours à des sauts de lignes bien 
dosés. on peut faire arriver la tête 
d'impression juste en-dessous de la 
ligne précêdente. créant ainsi une 
continuité verticale et une matrice 
plus grande. Mais pour le moment, 
ce n'est pas ce qui nous intéresse 
Prenons l'exemple de l'impression du 
code $AS 10100101 en binaire 
Ceci nous donne sur papier 


1 + (bit à 1 = un point) 


mOmO©OC©-e 


Voilà pour le format primaire des 
octets qui forment les codes des ca- 
ractères. Cependant, PROP utilise un 
système d'index pour trouver rapide- 
ment les codes du caractère désiré 
Cet index constitue la première partie 
des codes et occupe 192 octets I 
contient les adresses des longueurs 
des codes {à partir du début de l'in- 
dex, sur 2 octets) Voyons alors 
comment un caractère est codé 
chaque groupe de codes à envoyer à 
l'imprimante est précédé d'un octet 
indiquant la longueur des codes. qui 
arrivent ensuite dans l'ordre de sor- 
tie. Tout cela . bien rangé. représente 
993 octets pour le jeu de caractères 
standard. index compris 


Thierry Han 


Utilisation 


Pour mettre en route PROP, il suffit 
de faire un BRUN ou un CALL 
36608 après BLOAD L'instruction & 
est initialisée. Pour utiliser PRE- 
PROP, il suffit de faire un autre 
BRUN ou CALL 768 après le char- 
gement de PROP et de PREPROP 
Un CALL 802 (ou CALE ‘adresse 
de chargement” + 34) déconnectera 
PROP. Pour PREPROP qui agit 
comme un PR#1, il suffit de faire un 
PRINT de ce que l'on veut imprimer 
Pour &, il faut assigner une chaïne 
puis faire : 

& chaîne$ ou & chaînef, 

selon que l'on veut ou non effectuer 
un saut de ligne. 


Par ailleurs. un & seul fera imprimer 
tout ce que l'on avait fait entrer dans 
le buffer (avec & chaîne}. S'il n'y a 
rien. seul un saut de ligne sera effec- 
tué. Notez que si chaîne$ contient un 
retour chariot (Ascii 13), l'impression. 
puis le saut de ligne seront effectués. 
même si un point-virgule est utilisé. 
Les caractères suivant le retour cha- 
rot seront traités normalement 


Note importante: ne faites surtout 
pas FP seul avec PROP en mémoire 
Ce FP remet en place la HIMEM et 
les variables alphanumériques vien- 
dront écraser PROP après un net- 
toyage de ia mémoire. Faites donc 
un NEW au lieu de FP. ou faites sui- 
vre le FP par un HIMEM:36608. 


Définition des caractères 


Si vous aimez le jeu de caractères 
standard fourni, il n'y a aucun besoin 


d'utiliser PROP DEF. programme 
Basic de définition des caractères. 
Dans le cas contraire. PROP DEF 


vous demandera d'abord le nom du 
fichier de caractères à éditer (vous 
pouvez en effet sauvegarder diffé- 
rents Jeux de caractères sous des 
noms différents) Un RETURN à vide 
indique au programme de travailler 
sur le fichier actuellemen. en mé- 
moire. ce qui suppose bien sûr que 
celui-ci s'y trouve effectivement 1] 
faut obligatoirement travailler à partir 
d'un jeu existant, donc à partir du 
jeu standard pour la toute première 
édition 

Vous devrez ensuite préciser s'il s'agit 
d'un Module (routines d'impression 
plus codes) ou simplement d'un fi- 
chier Codes. Dans ce dernier cas. 
vous ne pourrez pas essayer directe- 
ment les caractères créés mais les 
principes de définition restent les 
mêmes {voir plus loin la méthode de 
fusion entre les routines et les codes) 
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Lorsque les données d'identification 
du fichier sont fournies, le pro- 
gramme décode le jeu de caractères 
en mémoire, puis apparaissent une 
grille HGR et 4 lignes de commande 
Pour éditer un caractère sur la grille, 
il suffit de taper ce caractère. Quel- 
ques touches de fonction sont pré- 
vues pour pallier l'absence de cer- 
tains caractères sur le clavier de 
l'Apple E+ : 


e CTRL-B pennet de basculer entre 
les majuscules (MI=0 dans les 
lignes de commandes) et les mi- 
nuscules (MI=1) 

e CTRL1A correspond au caractère 
"trait soulignant” (Ascii 95) en 
majuscule 

e CTRL-O correspond au caractère 
°[” en minuscule 

e CTRL-P correspond au caractère 
“slash inverse” en minuscule 


Une fois entrée. la lettre s'affiche en 
gros points sur l'écran. Pour posit:on- 
ner le curseur”, vous devez indiquer 
la position horizontale (1 chiffre de O 
à 9) puis la position verticale (un 
chiffre de 1 à 8). Ensuite, la frappe 
de la touche "0" change l'état du 
point à l'endroit du curseur: il l’al- 
lume s’il était éteint et inversement. 
À ce stade, toute autre touche que D 
laisse le point inchangé. 

En ce qui concerne la positon hori- 
zontale. il n'est pas possible d'attein- 
dre tous les points d'une ligne au 
moyen des seuls chiffres 0 à 9. Si 
vous voulez modifier un point situé 
dans une position intermédiaire, pla- 
cez tout d’abord le curseur sur le 
point situé à gauche de votre objectif 
et laissez-le inchangé. Tapez ensuite 
la "flèche à droite” en réponse à la 
demande de position horizontale et 
cela vous amènera à l'endroit voulu. 
Par exemple. le troisième point d'une 
ligne n’est pas accessible directement 
(le deuxième correspond à la posi- 
tion horizontale 1 et le quatrième à la 
position 2). placez vous alors sur la 
position l et la ‘flèche à droite” vous 
placera ensuite sur le troisième point. 


Si vous possédez un joystick ou deux 
paddles, vous pouvez remplacer les 
lignes 4000 à 4050 du programme 
PROPLDEF par les lignes listées plus 
loin sous le nom ‘Version Paddles”. 
Dans ce cas. le déplacement est 


donné par les poignées et l'un des 
boutons permet de modifier l'état 
d'un point à l'endroit du curseur”. 


Les lettres sont affichées en matrices 
de points, qui reproduisent à l'écran 
très fidèlement ce qui sera imprimé 
sur papier. Pour les techniciens des 
Epson, je précise que l'impression se 
fait en double densité, mais pas en 
vitesse double, ce qui confère à ces 
caractères proportionnels une qualité 
d'impression supérieure. Bref, vous 
dessinez sur l'écran ce que vous vou- 
driez voir sur papier et vous pouvez 
valider votre créat:on par RETURN 
Sinon, vous pouvez recommencer en 
appuyant sur ESC. 


Si vous appuyez sur ESC lors de la 
demande du caractère à éditer, et si 
vous avez un module en mémoire (et 
non seulement un fichier codes) vous 
aurez droit à une impression de tous 
les caractères disponibles (Asci 32 à 
127). Par ailleurs. un RETURN au 
même niveau provoque le codage 
des données stockées dans les ta- 
bleaux du Basic en une forme qui 
sera POKée directement dans la 
table qu'utilise PROP. Si vous ne 
voulez toutefois pas enregistrer sur 
disquette. entrez un RETURN à vide 
à la demande du nom de sauve- 
garde. Ce codage est nécessaire pour 
pouvoir essayer le nouveau jeu édité. 
Si vous voulez stocker ce nouveau 
jeu sur disquette. il suffit d'entrer un 
nom, de préférence différent de tous 
ceux qui sont présents sur la dis- 
quette. Après cela. vous pouvez ter- 
miner avec ESC. ou continuer avec 
n'importe quelle autre touche. Notez 
qu’à la sauvegarde, tout le module 
sera ou non enregistié en même 
temps que les codes selon que vous 
aurez indiqué Modules ou Cjodes 
au début de l'édition 

Si vous appuyez sur CTRL:-S (sauve- 
garde) et non RETURN en lieu et 
place d'un caractère à éditer. le pro- 
gramme agira comme sil avait dé- 
passé le stade de codage et deman- 
dera directement le nom du fichier à 
sauvegarder. Les changements effec- 
tués après le demier codage seront 
ignorés, bien que présents dans les 
tableaux du Basic. 


Une dernière remarque : après l'ap- 
pui du RETURN qui valide un carac- 


tère, une fourchette s'affiche sur 
l'écran : elle indique les deux ‘limi- 
tes” du caractère, à partir desquelles 
on ne trouve rien. Ce calcul est auto- 
matique. Si vous voulez inclure quel- 
ques espaces de plus que ces limites. 
appuyez sur CTRL-L (pour ‘“Limi- 
tes”) au lieu de RETURN, et le pro- 
gramme vous demandera la colonne 
de départ et celle d'arrivée (1 à 16 
inclus). Si le caractère que vous édi- 
tez dégénère en ‘rien du tout”. le 
programme vous demandera la lar- 
geur de l’espace pour ce caractère. 
Les deux cas standards. l'espace et le 
code Ascii 127 (Del). prennent trois 
espaces 


Les différents program- 
mes 


Le module PROP se nomme 
PROPOBJ sur la disquette, et 
contient les codes standards. 

Par contre PROP.PROG ne les 
contient pas: c'est le programme 
objet directement assemblé à partir 
de PROPSCE. programme source 
(Dos Tool Kit). 

Les codes (index + codes) sont re- 
produits dans le fichier CODES, qui 
doit être chargé juste après la partie 
programme, soit à l'adresse $9023. 
Cette disposition a été adoptée pour 
ne pas devoir garder de longs codes 
dans le programme source. 
PROPEXEC, fichier EXECutable, fait 
le nécessaire pour souder la partie 
programme et la partie codes afin de 
créer un fichier PROP.OB.J2. qui sera 
généré à partir des fichiers 
PROP. PROG (assemblage de 
PROP.SCE) et CODES (relogé). 


PREPROP.SCE et PREPROP.OBJ 
sont les programmes source et objet 
de PREPROP. 

PROPLDEF est le programme Apple- 
soft qui édite les jeux de caractères 
pour PROP. Enfin, S SHP contient la 
shape du point utilisé par 
PROP.DEF. 


À propos du Dos Tool Kit. si vous 
avez une Carte Langage, éditez vos 
programmes avec le disque virtuel de 
Michel Haag (Pom's 12): cela accé- 
lère beaucoup les lectures/écritures 
et, surtout. l'assemblage se fait très 
rapidement. 





ILIST:PROP.0EF 


10 HIMEM: 36608: LOMEM: 146510 


20 GOTO 7000 

990 REM CADRE 

1000 HOME : HGR : HCOLOR= 
VTAB 21 


1060 IF R& 





1010 FOR I = 0 TO 153: HPLOT H + I * H,0: 71): 
HPLOT H + I # H,V # 8 + 2: NEXT 1070 IF R$# 

1020 FOR I = O0 TO 8: HPLOT Hi,1 + I # V (72): 
TO H # 56 + H1,1 * UV + 1: NEKT 1080 IF R$# 

1030 FOR 1 = H TO H *x 16 STEP H x 5: HPL PO: 


OT 1,131 TO 1,140: NEXT 


1049 REM ENTREE, CONVERTION CONTROLS 
1050 HOME : UTAB 21: PRINT "RETURN POUR 
ENREGISTRER,": PRINT "ESCAPE POUR 
ÿ ESSAYER.": PRINT "CARACTERE {MI="M 
3: POKE 34,20: 1194 GET RS 


CHRS 195) THEN R& = CHR$ 
GOTO 1140 

CHRS (16) THEN R$ = CHRS 
GOTO 1140 

CHRS (9) THEN R$ = CHRS « 


G8TQ 1140 
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1085 IF R$ = CHR$ (12) THEN 5000 4110 IF CX < 16 THEN IF G#CCX + I,CY) = 
1090 IF R$ = CHR$ (2) THEN MI = 1 = MI: 1 THEN ORAU 1 AT CX * H + H,CY * 
PRINT : GOTO 1050 Ur UI 
1100 IF R$ = CHR$ (13) THEN 6000 4120 GOTO 4000 
1110 IF R$ = CHR$ (27) AND T$ = "M" THE 4990 REM CTRL-L 
N 7000 5000 INPUT "COLONNE DEBUT: ";D: INPUT "C 
1120 IF R& = CHRS (i9> THEN 6060 OLONNE FIN: "ilil=Ll+1ixéLl<i 
1130 IF R$ < “ “ THEN PRINT : GOTO 1050 6): IF D < 1 ORL > 146 OR L < D TH 
1140 INVERSE : IF MI = 1 AND ASC (RS) ) EN 5000 
= 64 THEN RMS = RS:R$ = CHRS € 5005 GOTO 5060 
ASC (RMS) + 32): PRINT “MIN "RMS: : 5010 REM LECTURE ECRAN 
NORMAL : PRINT " ASCII *“ ASC 5020 FOR C = 1 TO 16: FOR I = O TO ?: IF 
(R$)>: GOTO 1160 GXCC,I) = 0 THEN NEXT !I,C: INPUT 
1150 IF R$ > = "9" THEN PRINT "MAJ "; "LONGUEUR DES ESPACES: ";L:D = 1: 
1155 PRINT R$;: NORMAL : PRINT " ASC GOTO S070 
II “ ASC (R$) 5030 I = 9: NEXT 1:D = C: FOR C = 16 TO D 
1160 R = ASC (RS) - 32: IF R > 127 THEN STEP - I:L = 0: FOR 1 = 0 TO ?: 
R = R - 128 IF GXCC,I1)> = O0 THEN NEXT I1,C: GOT 
1990 REM DECODAGE À PARTIR DE LA MEMOIR 0 5050 
E 5040 I = 9: NEXT 1 
2000 FOR C = 1 TO DR) 5050 L = C 
2010 C% = PACR,C) 5060 HPLOT D * H,150 TO D *# H,159 TO L * 
2020 FOR I = 7 TO O STEP - 1: IF C4 > H,159 TO L * H,150 
= 2° 1 THEN CX = C4 — 2 © 1:G%CC, | 5970 FOR 11 = D TO L:1 = It - D + 1:PXCR 
7 — 1) = 1: GOTO 2040 RSR 
2030 GZ(C,7 - I) = 0 5080 FOR J = 0 TO ? 
2040 NEXT 1,C 5090 IF G(I1,7 - J) = 1 THEN PX(R,I) = 
2050 FOR I = C TO 17: FOR J = 0 TO 7:6GX( PARR TS CE 2 
1,J) = 0: NEXT J,1 5100 NEXT J:11:0%(CR) = I 
2990 REM DESSIN 5110 GOTO 1000 
3000 FOR I = i TO DR): FOR J = 0 TO 7 5990 REM CODAGE POUR MODULE PROP 
3010 1F GXC1,J) = 1 THEN DRAY 1 AT 1 * 6000 Se IN + ee. FOR . De TO 95:R1 = 
H,J # VU + VI R # 2:TX = TA — IN 
3020 NEXT J,1I 6010 T1 = INT (TX / 256): POKE IN + R1,T 
3990 REM EDITION X - TI # 256: POKE 12 + R1.T1 


4000 VTAB 24: HTAB 1: PRINT “PH : 0 À 9 
OÙ —-> "“;: IF PEEK © - 16384) « 1 
23 THEN 4000 


6020 POKE TA,DZ(R) 

6030 FOR I = 1 TO DCR) 

6040 POKE TA + I1,P2%R,1): NEXT 
PEEK { - le3G4): POKE - 15368, 6050 TA = TA + I: NEXT 





ait K 


O:K2 = K —- 128: IF K2 > 47 AND Kz 6060 PRINT : INPUT “NOM DU FICHIER À ENR æ 
€ 58) OR KZ = 21 THEN 4032 EGISTRER: ";F$: IF F$ = "" THEN 61 hA 
4030 IF K > 139 THEN ON K - 139 GOTO 50 00 n 
00,5020: ON K = 155 GOTO 1000 6070 R$ = “C": IF T$ = *“M*" THEN PRINT "C £ 
4031 GOTO 4000 )0DES OÙ M)DODULE? “;: GET R$: PR - 
4032 IF KZ = 21 AND KX < 9 THEN CX = 2X INT R$ 4 
+ INT CH / 8): GOTO 4041 6080 IF R$ = “"C* THEN PRINT D$"BSAVE"FS k 
4034 IF K2 = 21 THEN 4000 ",A"IN",L"TA —- IN: GOTO 6100 11 
4040 KZ = KZ - 48:KX = KZ:CX = INT (KZ * 6090 PRINT D$"8SALVE"F$" ,A$8F00,L"TA - IN pe 
255 / 153) + 1:2X = CX + IN - 36608 F 
4041 VTAB 24: HTAB 1: PRINT "PU : 1 A 8 6100 PRINT “PRESSEZ UNE TOUCHE.(ESC POUR Le 
“3: IF PEEK € - 16384) <« FINIR) ";: GET R$: IF R$ < > CHR è 
128 THEN 4041 $ (27) THEN 1000 
4042 KZ = PEEK « - 16384) - 128: POKE - 6110 END 
16368,0: IF KZ < 49 OR KZ > 56 TH 6990 REM ESC: ESSAI SUR IMPRIMANTE 
EN 4041 7000 HOME : PRINT "ESSAI: ALLUMEZ L’IMPR 
4043 KZ = K2 — 48:CY = INT (KZ * 255 / 2 IMANTE ..": GET R& 
BB) 79010 R$ = "": FOR I = 32 TO 127:R$ = R$ + 
4050 XORAW 1 AT CX #* H,CY # V + VI CHR$ CI): NEXT 
4050 XDRAU 1 AT CX # H,CY # VU + VI 7020 & R%: GOTO 1000 
4070 VTAB 24: HTAB 1: PRINT *0O CHANGE LE 8990 REM INITIALISATION 
POINT “ss IF PEEK < - lé 9000 TEXT : HOME : DIM P:(95,173,D%(95), 
384) < 128 THEN 4070 GXC17,7)2:D$ = CHR$ (4) 
4071 K = PEEK  - 16384): POKE - 16368, 9005 H = 9:0 = lé:Ul = INT (VU / 27 + L1:H 
O:KZ = K - 128: IF K2Z < > 48 THEN 1 = INT CH / 2) + 1: REM DONNEES 
4800 POUR LES PROPORTIONS H/V À L'ECRA 


4080 FOR M = 0 TO 100: NEXT N 5 
9010 POKE 232.0: POKE 233.64: ROT-— 0: SC 


4090 IF GZ<CX,CY) = 0 THEN G<CX,CY) = 1 
.3: DRAW 1 AT CX #* H,CY x VU + VI: GO ALE= 1 
TO 4120 9020 IF PEEK (16384) = 1 AND PEEK (163 
4100 GÆCCX,CY) = 0: XDRAW 1 AT CX * H,CY 85) = 0 AND PEEK (16386) = 4 AND 
# VU + Vi: IF CX > 1 THEN IF GXXCX PEEK (16387) = 0 AND PEEK (14388 
— 1,CY) = 1 THEN DRAW 1 AT CX * ) = 44 THEN 9040: REM TEST SI SHA 
H - H,CY # L + VI PE PRESENT 


ER 
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9030 PRINT 0$*BLOADS.SHP,A$4000" 9150 TA = TA + I: PRINT CHR$ CR + 32) ;: 


9040 INPUT "NOM DE FICHIER À EBITER: ";F NEXT 

$: PRINT "M)ODULE OÙ C)ODES? "3: | 9160 DS = CHRS& (4): GOTO 1000: REM D$ E 

GET T#: PRINT TS FFACE PAR CALL 36608 
9050 IF F$ = “* THEN PRINT "EN MEMOIRE. 

*: GOTO 9070 
9060 PRINT D$"BLOAD'FS ; ; 
9070 PRINT "DECODAGE:": IF T$ = "M THEN | Version Joystick 

CALL 36608 

9080 REM DECODAGE À PARTIR DES CODES ILIST 4000,4050 
9090 IF T$ = "C* THEN IN = PEEK (43634) 

+ PEEK (43635) * 256: GOTO 9110 4000 CX = INT € PDE (0) / 17) + 1 
9100 IN = PEEK (36611) + PEEK (36612) * | 4010 IF PEEK € - 16384) < 128 THEM 4040 

256 4020 K = PEEK € - 16384): POKE - 16368, 
9110 TA = IN + 192:12 = IN + 1 0 
9120 FOR R = 0 TO 95 4030 IF K > 139 THEN ON K - 139 GOTO 50 
9130 DACR)I = PEEK (TA) 00,5020: ON K = 155 GOTO 1000 
9140 FOR 1 = 1 TO DCRD:PACR,I) =  PEEK 4040 CY = INT € PDL €1) / 32) 

(TA + 1): NEXT 4050 XDRAW 1 AT CX x H,CY # VU + VI 
PROP.OBJ 9038- 00 03 01 0B 01 0E 01 16 

9040- 01 19 O1 22 01 24 Of 30 
*2F00.9404 9048- 01 38 01 40 01 48 01 50 
9050- 01 58 01 40 O1 68 O1 70 

8F00- 4C 05 8F 23 90 A9 4C 8D 9058- 01 73 01 746 01 7/8 O1 83 
8F08- F5 03 ÀA9 26 8D Fé 03 A9 90$0- 01 88 01 90 01 9A 01 ÀS 
8F10- 8F 8D F7 03 À9 00 85 73 9068- 01 B2 01 BC 01 Cé 01 DO 
8F18- 85 6F A9 8F 85 74 85 70 9070- 01 DA 01 E4 01 FO O1 Fé 
8F20- 20 BS5 SF 4C F8 SF 20 B7 P0r8- FF 00" 02-15702,23 
8F28- 00 F0 35 20 E3 DF 20 é6C 9080- 02 2F 02 3B 02 45 02 51 
8F30- DD 85 85 84 Sé AO 00 B1 P088=— 02:-SB-02:65102;:71- 02:78 
8F38- 85 85 1C C8 Bi 85 85 1D 7070-02 87 0? 7702544 ,02:B0 
8F40- CS Bi 85 85 IE AO O0 Bi 9098- 02 BA 02 8F 02 CS 02 CD 
8F48- 1D 84 1B 20 66 SF Ad iB PO0AO0- 02 D3 02 OD 02 E0O 02 EA 
8F50- CS C4 1C D0 F2 20 B7 O0 90A8- 02 F4 02 FC 02 Oé 03 OF 
8F58- C9 38 DO 04 20 Bi 00 40 9080- 03 16 03 1iF 03 29 03 2?F 
8F60- À9 OD 20 66 8F 60 Àé 0$ 9088- 03 35 03 3D 03 43 03 51 
SFSé8-"29..7F C9: 0D F0::30-38::E7 90C0O- 03 SA 03 642 03 68 03 74 
8F*0- 20 90 F2 Of 9D 00 95 ER 90CS8- 03 7C 03 84 03 SC 03 96 
SF78- Sé 0é 20 01 90 À9Q 00 81 90D0- 03 A9 03 ÀE 03 88 03 C2 
8F80- 08 18 49 02 85 FB 45 19 90D08- 03 CA 03 CF 03 Di 03 Dé 
8F88- 85 19 90 02 Eé 1À AS FB 9O0EO0- 03 DD 03 03 00 00 00 04 
8F90- 18 65 FC 8S FC 90 02 Eé 90E8- 60 FA FA 40 04 EO0 00 00 
SF9S- FD ÀS FD C9 03 DO Cé AS 9O0FO- E0O 09 24 2C 38 68 AÀ 2C 
8FAO- FC C9 BQO B0Q 0é& ÀAé 06 DO 90F8- 38 48 ÀA& 07 20 52 S2 FF 
8FAS- BC FO 11 EO 00 FO 64 20 9100- 44 4A 04 07 C2 C4 08 10 
8FB0O- BC SF 20 13 90 À2 00 8Sé 9108- 20 46 Sé 07 44 AA 92 AA 
8F88- FC Sé FD 60 À9 1B 20 1À 9110- 44 94 10 02 20 CO 03 3C 
SFCO- 90 À9 4C 20 1À 90 ÀS5 19 9118- 42 81 03 81 42 3C 07 08 
8FCS- 20 14 90 ÀS 1A 20 1A 90 9120- 24 1C 08 1C 24 08 07 08 
SFDO- 42 00 BD 00 95 20 O1 90 9128- 08 08 3E 08 08 08 02 05 
SFDS- A9 00 20 14 90 20 14 90 9130- 0é 07 08 08 08 08 08 08 
SFEO0- AS Bi 0S AS C8 84 97 A0 9138- 08 02 02 02 08 01 02 04 
8FES- 01 81 08 20 1À 90 CS C4 9140- 08 10 20 40 80 07 38 49 
8FF0- 07 DO F$ E8 E4 0$ DO DA 9148- 82 82 82 44 38 OS 22 42 
SFFS- A2 00 Sé Oé Sé 19 Sé 1AÀ 9150- FE 02 02 07 446 SA 92 92 
9000- 60 ÀS B9 23 90 18 49 2 9158- 92 92 462 07 44 82 82 92 
9008- 85 08 C8 e9 23 90 é9 ÿ0 9160—- 92 92 6C 07 08 18 28 48 
9010- 85 09 60 À? OD 20 14 90 9168- 88 FE 08 07 E4 A2 À2 A2 
9018- À9 OA 2C Ci Ci 30 FB SD 9170- À2 À2 9C 07 OC 12 32 52 
9020- 90 CO 40 CO 00 C4 00 C9 9178- 92 12 OC 07 80 82 84 88 
9028- 00 CE O0 D8 00 EO O0 E8 9180- 90 AO CO 07 4C 92 92 92 
9030- 00 FO 00 F3 00 F7 00 FB 9188- 92 92 6C 07 60 90 92 94 
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9190- 98 90 60 02 14 14 02 15 9300- 02 CO 20 09 04 Of 
9198- 14 04 10 28 44 82 07 14 9308- 24 2À 2À 1C 02 09 
9140- 14 14 14 14 14 14 04 82 9310-22 22.22.2222 22 
P1AS- 44 28 10 07 40 SO 80 SA 9318- 1C 22 22 22 22 22 
91B0- 90 A0 40 09 38 44 82 92 P320= :1C-22 :22 22: 22 22 
91BS- AA À BA SA 72 OD 02 Oé 9328- 02 08 1C 2 24 2 
91C0- Of 18 AS CS S8S 48 28 18 9330- 24 18 06 12 7E 92 
91CS8- 64 06 02 09 82 FE 92 92 9338- 40 08 18 24 ?2S 25 
91D0- 92 92 92 92 éC 09 38 44 9340- 1E 20 09 82 FE 12 
91D08- 82 82 82 82 82 82 C4 09 9398-20 22 LE 02 05 22 
91E0- S2 FE 82 82 82 82 82 42 9350- 02 02 05 O2 01 21 
PLES= SC I0?9 S2VPRE 92 92 92BÀA 93S8- 07 82 FE Où 14 14 
91F0- 82 82 Cé 09 82 FE 92 ?2 9360-—- 05 82 82 FE 0? 0? 
91F8- 90 BS S0 80 CO 09 38 44 9368- 1E 22 20 20 22 1E 
?200- 82:82 82 92 92 92 DE 06 9370- 20 ?22 1E 02 08 22 
9208- 82 FE 92 10 10 10 10 10 9378- 20 ?20 ?2?2 1E 02 07 
9210- 92 FE 82 05 S2 82 FE 82 0390- 25925199 592:1C:08 
921S8- S2 08 04 02 02 S2 82 82 9388- 25 24 ?4 ?4 ?4 18 
9220- FC S0 OB 82 FE 92 10 28 9390- ?4 ?4 ?4 ?4 2?S 1F 
9228- 289 44 44 82 82 82 09 82 9398- 22 1E 22 20 20 20 
9230- FES? 02 02:02"02 02106 93A0- 12 24 2 24 28 28 
9238- 00 82 FE 82 40 20 10 08 93A8- 20 FC 22 ??2 ?? ?? 
9240- 10 20 40 82 FE 82 0B 82 93B0- 20 3C 22 02 02 02 
9248- FE S2 40 20 10 08 04 82 93B8- 22 09 20 30 ?8 0Od 
925S0- FE 82 0B 38 44 82 82 82 93C0- ?8S 30 ?0 0D 20 30 
9258- 82 82 82 82 44 3B 09 82 93C8- 02 04 0S 04 02 04 
9260- FE 92 90 90 90 90 90 640 93D0- 20 09 22 22? 14 14 
9268- 0B 38 44 82 32 82 82 82 93D8- 14 22 22 0% 20 ?1 
9270- SA SA 44 34 09 82 FE 92 93E0- 04 0S 30 20 20 07 
92;78- 90 90 98 94 92 462 09 64 93ES- 26 24 32 32 22 04 
P280-92:92 92 92 492492.92 CC 93F0- 82 82 01 FF 04 82 
928B- 0B CO S0 S0 80 82 FE 82 93F8- 10 04 40 80 80 40 
9290- S0 30 80 CO 09 30 FC 82 9400- 03 00 00 00 00 
9298- 02 02 02 82 FC S0 OÙ 80 
92A0- CO A0 10 08 04 02 04 08 PREPROP.OBJ 
9248- 10 AC CO 80 OD S0 CO BO 
92B0- OC 02 OC 30 OC 02 OC B0O #300 .33A 
92B8- CO 80 OC 82 Cé Cé 28 28 
P2C0= 40,10 28.28 CS1CS, 82-08 0200- AD 53 A 8S FE AD 
FPLES= -S0COLC0,- 207 222 1E" 22-20 0303- 85 FF 20 58 FF BA 
92D00- CO CO 80 09 C2 Sé 86 SA 0310- 00 01 1S 49 21 SD 
92D08- 92 A2 C2 C2 Sé 04 FE 82 0313- ES BD 00 01 49 00 
92E0- 82 32 08 80 40 20 10 08 0320- A 60 ÀS FE SD 53 
92ES8- 04 02 01 04 82 82 82 FE 0328- FF SD S4 A 40 20 
92F0- 05 40 80 S0 80 40 09 Ot 0330- AS 45 20 66 SF 20 
92FB= :01 01-01 ‘01. 01-01. 01. 0: 0338- 4C FE 00 
PROP.EXEC 4010- 2C 20 2D 34 
= 7 7 7 
BLOADPROP . PROG ne + . . 
AD=PEEK{36611)+PEEK (36612) +256 4028- 24 24 24 24q 
PRINT"'BLOABCODES ,A"AD Rem : il y a un € 4030- 2D 36 36 36 
_ TRE DER BLOAD) 4038- 2F 2F 2F 24 
BSAL'EPROP.O0BJ2,A5SFO0.L$600 4040- 9C 2D ?2D 2D 
4048- 26 346 26 364 
S.SHP 4050- 3F 3F 20 24 
#4000.4077 4058- 08 2? 20 2D 
4060- 22 36 346 34 
4000- 01 00 04 00 2C 36 3F 24 4068- 2F 3F 3F 3F 
4008- 2C 2D 36 34 3F 3F 24 24 4070- 24 24 24 24 
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PROP.SCE 


SOURCE FILE: PROP.SCE 


NEXT OBJECT FILE NAME IS PROP.SCE.0 


8J0 
8F00: 1 ORG $58F00 
8F00 . 2 JD 26 6 DE 0 De de 26 D 3e 6 D 6 JE 6 DE 26 D XE 
26 36 26 DE 26 6-26 26 6 
8F00: 3 IMPRIMANTE PROPORTION 
NELLE 
8F00: 4 *EPSON->PROPORTIONNEL 
8F00 : S #*PAR:THIERRY HAN 
8F00: 6 #*DATE:3/5/1984 
BFO00: 7 #SYNTAXE : &CHAINES ; D 
8Fot D à 26 36 Xe 26 DE 36 DE DE 6 DE DE HE DE DE DE DE DE DE DE DE D 
26 26 26 6 26 36 26% 2 à 
8F00: 9 ;D0OS TOO KIT 
8F00: 10 : 
0006 11 XREG EQU +$é 
0007: 12 YREG EQU $7 
0008: 13 INP EQU #58 
0019: 14 TOTAL EQU #19 
; LONGUEUR JUSQU’A IMPRESSION 
0018: 15 SAVE EQU 518 
001C: 16 LEN EQU %1C 
0010: 17 ADR EQU $1D 
00F8: 18 AREG EQU S$FB 
GOFC 19 TOT{ EQU #$FC 
3; LONGUEUR JUSQU’À CR 
9500 : 20 BUFFER EQU $9500 
8F00: 21 ; 
006F: 22 STREND EQU $6F 
0073: 23 HIMEM EQU $73 
0081: 24 CHRGET EQU $81 
0087 25 CHRGOT EQU $587 
0085: 26 LAST EQU $85 
03F5: 27 AMPVEC EQU $3FS5 
;VECTEUR & 
EfCt: 28 BUSY EQU $cici 
:POUR L'’IMPRIMANTE 
C090: 29 DATA EQU +$cC090 
DDéC: 30 CHKSTR EQGU #$DD6C 
DOFE3: 31 PTRGET EQU $0FE3 
8F00:4C 05 8F 32 JMP  DEBUT 
8F03: 33 3; 
8F03:23 90 34 OW INDEX 
;POUR PROP.DEF ET PROP.EXEC 
8F05S: 35, 4 
8F05S: 36 ;INITIALISATION 
8F05: SZ; 
8F0S:A49 4C 38 DEBUT LDA #$49C 
3 JMP 
8F07:80 F5 03 39 STA AMPUEC 
8FO0A:A9 26 40 LDA #>START 
8F0C:8D Fé 03 41 STA  AMPUEC*+!{ 
8F0F:A9 8F 42 LDA  H#<START 
8F11:8D F7 03 43 STA  AMPUEC+2 
8F14:A9 05 44 LDA #)>DEBUT 
8F16:85 73 45 STA  HIMEM 
8F18:85 é6F 4é STA  STREND 
8FiA:A9 8F 47 LDA  K<DEBUT 
8F1C:8$S 74 48 STA HIMEM#+]1 
8F1E:85 70 49 STA STREND+1 
8F20:20 85 8F 90 JSR RACTOT 
8F23:4C F8 8F SA JUMP _INIT 
8F26: SA 
8F26: 953 ;DEBUT DE & 
8F26: S4 : 
8F26:20 B7 00 55 START JSR CHRGOT 


8F29:F0 35 56 BEG PRT 
3 RIEN: IMPRESSION 
8F2B:20 E3 OF 57 JSR  PTRGET 
3 TROUVE LE DESCRIPTEUR 
8F2E:20 6C DD 58 JSR CHKSTR 
SI NON-CHAINE, TYPE MISMATCH 
8F31:85 85 59 STA LAST 
8F33:84 86 60 STY LAST+1 
8F35:A0 00 é1 LDY #0 
8F37:81 85 62 LDA (LAST),Y 
; LONGUEUR 
8F39:85 1C 63 STA LEN 
8F38:C8 64 INY 
8F3C:81 85 65 LDA <LAST) ,Y 
ET ADRESSE DE LA CHAINE 
8F3E:85 10 éé STA ADR 
8F40 :CB 67 INY 
8F41:B1 85 68 LDA  (LAST),Y 
8F43:85 1E 69 STA  ADR+I 
8F45:A40 00 70 LOY #0 
8F47: LL 
8F47:81 10 72 LOOP LDA (ADR) ,Y 
; PREND CHAQUE CARACTERE 
8F49:84 18 73 STY SALE 
s5DE LA CHAINE ET 
8F48:20 66 8F 74 JSR PROP 
:L'ENVOIE À PROP 
8F4E :A4 18 79 LOY SAVE 
8F50:C8 76 INY 
8F51:C4 fc 77. CPY  LEN 
8F53:D0 F2 78 BNE  LOOP 
8FS55:20 B7 00 79 JSR CHRGOT 
8FS8:C9 3B 80 CMP  #53B 
; POINT -UVIRGULE 
8F54:D0 04 81 BNE  PRT 
8FSC:20 81 00 82 JSR CHRGET 
3 POUR INCREMENTER TXTPTR 
8FSF:60 83 RTS 
8F 60: 84 ; 
8F60:A9 0D 85 PRT LDA  #45D 
8F62:20 sé 8F 86 JSR  PROP 
: FORCE IMPRESSION PAR SAUT DE LIG 
NE 
8F65:60 87 END RTS 
; POUR LES BRANCH 
8Féé: 88 ; 
8Fé66: 89 ; ROUTINE DE STOCKAGE D 
ANS BUFFER 
8Féé: 90 :; 
8Féé:Aé 06 91 PROP LOX XREG 
; INDEX DANS BUFFER 
8F68:29 7F 92 AND #$7F 
8F6A:C9 0OD 93 CMP  #$D 
;$ CODE 13 PROVOQUE L’IMPRESSION 
8F6C:F0 3D 94 BEQ CR 
3ET SAUT DE LIGNE 
8F6E:38 95 SEC 
8FéF:E9 20 96 S8C ##20 
8BF71:90 F2 97 BCC END 
8F73:0À 98 ASL À 
3AJUSTE POUR INDEXER 
8F74:9D 00 95 99 STA BUFFER,X 
8F77:E8 100 INX 
8F78:86 0é 101 STX XREG 
8F7A: 102 ; 
8F7A:20 01 90 103 UJSR GETADR 
8F70:A0 00 104 LDY #0 
8F7F:B1 68 105 LODA CINP).Y 
; LONGUEUR DES CODES POUR LA LETTR 
E 
8F81:18 106 CLC 
8F82:69 02 107 ADE #2 
;DEUX ESPACES ENTRE LETTRES 
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8F84:85 FB 108 STA AREG 
8F86:65 19 109 ADC TOTAL 
8F88:85 19 110 STA TOTAL 
8F8A:90 02 ÿ 11 BCC ADDTOT 
8F8C:Eé6 iA 112 INC TOTAL-+1I 
8F8E: LL3c; 
BFBE:AS FB 114 ADDTOT DA AREG 
8F90:18 LS CtC 
8F91:65 FC 116 ADC TOTI 
8F93:85 FC 17 STA TOTI 
8F95:90 02 118 BcC TEST 
8F97:E6 FD 1i9 INC TOTI+1 
8F99: 120 ; 
8F99: 121 ;TESTE DEBORDEMENT 
8F99: 122 ; 
8F99:A5 FD 123 TEST LDA TOTI+! 
8F98:C9 03 124 CMP #3 
8F9D:D0 Cé 25 S8NE END 
8F9F:AS FC 126 LDA TOTI 
8FAI :C7 B0 127 CMP #176 
3TOTAL 960 CODES/LIGNE 
8FA3:80 06 128 BCS CR 
8FAS: 129 
8FAS : 130 ;TESTE FIN DE BUFFER 
8FAS : 131 3 
8FAS:A6 06 132 LDX XREG 
8FA7:D0 8C 133 8NE END 
8FA9:FG 11 134 BEQ PRINT 
8FAB : 139.4 
8FAB : 136 : IMPRESSION + SAUT DE 
LIGNE + RA2 TOTAL 
8FAB8: 137S$ 
8FAB:E0 00 138 CR CPX HO 
8FAD:F0 64 139 BEQ CROUT 
3RIEN, JUSTE CR 
SFAF:20 BC 8F 140 JSR PRINT 
8F82:20 13 90 141 JSR CROUT 
8F85:A2 00 142 RAZTOT LDX #0 
8FB7:86 FC 143 STX TOTI 
8FB89:86 FD 144 STX TOTIri 
8FBB: 60 145 RTS 
8FBC: 14é ; 
8FBC: 147 ;IMPRIME BUFFER (SANS 
SAUT DE LIGNE) 
8FBC: 148 ; 
8FBC:A9 1B 149 PRINT LDA #$1B 
:CODES DE L’IMPRIMANTE 
8FBE:20 1À4 90 150 JSR COUT 
; (MODE GRAPHIQUE DOUBLE DENSITE) 
8FCIi:A9 4C 151 LDA ##$4C 
8FC3:20 1 90 152 JSR COUT 
8FCé:AS 19 153 LDA TOTAL 
8FC8:20 1A 90 154 JSR COUT 
8FCB:AS 1A 155 LDA TOTAL+I 
8FCD:20 1A 90 154 JSR COUT 
8FD0:A2 00 157 LDX #0 
8FD2:8D 00 95 158 NEXTCHR LDA BUFFER,X 
: LETTRE À SORTIR 
8FD5:20 01 90 159 JSR GETADR 
PREPROP.SCE 


SOURCE FILE: PREPROP.SCE 
ae us NEXT OBJECT FILE NAME 


E.0BJ0O 
0306: 
0300 : 

LÉLLLLLLE SL 
0300 

Suit 
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1S PREPROP.SC 


ORG $300 
2 dede 36 de Xe 6 JE HS 36 JE JE JE JE JE DE JE JE 


3 *PREPROP : REVECTORISE C 


8FD8:A9 


8FDA : 20 
8FDD : 20 
8FE9 :A8 
8FE1:B1 


8FE3:A8 
8FE4:Cc8 
8FE5:84 
8FE7:A0 
8FE9:B1 


8FE8 :20 
8FEE :C8 
SFEF :C4 
8FF1:06 
8FF3:E8 
8FF4:E4 
8FFé : DO 
BFF8: 
8FF8: 
8FF8: 
8FF8:A2 
8FFA:86 
8FFC:86 
SFFE : 86 
9000 :40 
9001: 
9001: 
9001 : 


9001 :A8 
9002:B9 


9005:18 
9006:69 
9008:85 


900A:C8 
900B:89 
900E:69 
9010:85 


9012:60 
9013: 
9013:A9 


90:5:20 
9018:A9 


sofa: 20 


901D:30 


901F:80 
9022:40 
9023: 
9023: 
9023: 
9023: 


00 160 LDA #0 
> DEUX ESPACES ENTRE LETTRES 
1A 90 161 JSR COUT 
1A 90 162 JSR COUT 
163 TAY 
08 164 LDA  CINP),Y 
; LONGUEUR DES CODES 
165 TAY 
166 INY 
07 167 STY YREG 
01 168 LDY #1 
0B 169 NEKTBYT LDA  CINP),Y 
;: CODE À SORTIR 
14 90 170 JSR COUT 
171 INY 
07 172 CPY  YREG 
Fé 173 SNE NEXTBYT 
174 INX 
06 175 CPX XREG 
DA 176 BNE NEXTCHR 
177%; 
178 ;RAZ DU BUFFER 
17975 
00 180 INIT LDX #0 
06 181 STX XREG 
19 182 STX ,TOTAL 
1A 183 STX TOTAL+I 
184 RTS 
185 ; 
186 ; SOUS-ROUTINES 
187 ; 
188 GETADR TAY 
;CHERCHE ADRESSE DES CODES 
23 90 189 LDA INDEX ,Y 
;5A PARTIR DE LA TABLE INDEX 
190 CLC 
23 191 ADC #)INDEX 
08 192 STA  INP 
QUI POINTE EN "OFFSET" 
193 INY 
23 90 194 LDA INDEX, Y 
90 195 ADC  #<INDEX 
09 196 STA  INP+1 
197 RTS 
198 ; 
OD 199 CROUT LDA #50 
; RETOUR CHARIOT 
14 90 2600 JSR COUT 
0A 201 LDA SA 
3ET SAUT DE LIGNE 
202 ; 
C1 Ci 203 COUT BIT BUSY 
; ENVOI DIRECT 
F 204 8MI COUT 
3 L'IMPRIMANTE 
90 CO 205 STA DATA 
206 RTS 
207 ; 
208 ;TABLE DES INDEX 
209 ; 
210 INDEX EQU * 


### SUCCESSFUL ASSEMB8LY: NO ERRORS 


0300: 4 *POUR PROP 

0300: S *CALL768 POUR BRANCHER 
PROP 

0309: 6 *CALL789 POUR DESRANCH 
ER 

0200: 7 2 3636 36 Je 36 DE DE JE JE JE JE JE JE JE JE JE JE JE JE 
PTIT IST 

0300: 8 ; 

AAS53: 9 CSWL EOU $4A53 

8Fé6é: 10 PROP EQU 58F66 
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0045: 11 AREG EUU +as 031C:69 00 34 ADC #<PROPZ-I 

> DE SAVE CI+1 
O0FE: 12 COUTI EQU %FE 031E:8D 54 AA 35 STA CSWL+i 
' 0321:60 34 RTS 

0322: 37 : 

FF4A: 13 SAVE EQU $FF4A 0322: 38 3DES-INIT: REMET L'ANC 
FF3F: 14 RESTORE EQU $FF3F ARE 
FF58: 15 RETURN EQU $FF58 0322: 39 ; 
0100: 16 STACK  EQU #100 0322:AS FE 40 LDA  COUTI 
0300: 17 ; 0324:8D 53 À 41 STA CSuL 
0300: 18 :INIT PROP 0327:AS FF 42 LDA COUTI+1: 
0300: 19 ; 
0300:AD 53 4 2 LDA CSUL 0329:8b 54 AA 43 STA CSUL+i 
0303:85 FE 21 STA COUT! 2526269 44 RTS 

; SAUVEGARDE L'ANCIEN 032D: 45 ; 
0305:AD 54 AA 22 LDA CSUL+i 032D: 46 ;ROUTINE EXECUTEE ALAN 
0308:85 FF 23 STA COUTI+: T PROP: 
0304: 24 ; 032D: 47 3SAUVE REGISTRES PUIS 
0304:20 58 FF 25 JSR RETURN RESTORE À LA FIN 

;:CHERCHE ADRESSE RELOGEE 032D: 48 ; 
030D:BA 24 1CI TSX 032D:20 4À FF 49 PROP2Z JSR SAVE 
030E:CA 27 DEX 
030F:8D 00 01 28 LDA STACK,X 0330:AS 45 50 LDA AREG 
0312:18 29 CLC 3SAVE MODIFIE À 
0313:49 21 30 ADC #>PROPZ-I 0332:20 66 8F S1 JSR  PROP 

CI+i 0335:20 3F FF 52 JSR RESTORE 
0315:8D S3 AA 31 STA  CSUL 0338:4C FE 00 53 JUMP  <COUT1) 
0318:E8 32 INX ; JUMP AU VRAI COUT 
0319:RD 00 O1 33 LDA STACK,X 


Accès direct aux disquettes 


Guy d'Herbemont 


Dans le Pom's 10 nous était présenté 
un programme simple d'accès direct 
aux disquettes. Mais il y a plus sim- 
ple encore! La routine contenue 
dans la ligne 100 du programme 
proposé ici suffit en effet pour réali- 
ser ce type d'opérations. 


Le DOS assure lui même l'essentiel 
du travail en utilisant le buffer de 
256 octets commençant en 46267 
($B4BB) et l'appel à RWTS se fait 
en 45111, après entrée des paramè- 
tres aux endroits indiqués. 


Voici venue la fin du règne de la 
bande des quatre (lIOB, table DCB, 
accumulateur et registre Y) sur 
RWTS, loyal serviteur scandalisé par 
les codes cachés. 


Nous devons la découverte de ces 
adresses à Bill Parker (Cal 
APPLE. in Depth (N° 3). mais je 


ne le suivrai pas totalement dans sa en conservant le code 255 ($FF) Eu 
ILEAD ACCES.HERBEMONT 30 REM LECTURE EN CARACTERES 
JCST 4Q BUF = 44247: FOR ! = O0 TO 255:A = FEE 
K CBUF + 123: GOSUB 40: PRINT $;: 
1 REM LECTURE DIRECTE NEXT PRINT 
2 REM SUR DISQUETTE 950 END 
3 REM =============== 60 4% = CHRS$S CAD: IF (À } 32 AND À < 127 
9: C= LS INPUT PISTES PE TINPUT SECTE > OR À à 181 THEN  RETURFN 
UR : “;S:SLOT = é:DRIVE = 1: ON P 70 à$ = #3 RETURN 
LD OR -Pr% 24 0R:S' OO F:S- SAS CG F0 FEM ACCES DISQUE PAR LA ;ETHODE SIMF 
OTC 5: GOSUB 188 LIFIEE 
10 REM LECTURE EN HEXADECIMAL 100 POKE 45121,C: POKE 4597S,P: POKE 427 
20 AS = "B3BB,B85BS NPBS236": FOR I = 1 TS 76,S: POKE 44582,SL0T *x 14: POKE 4 
LEN (AS): PÜKE Si + I, ASC { MID ésed4,DRIVE: CALL 4St11i: PÜKE 45j21 
8 CAS,1,193 + 128: MEXT POKE 72, 52: POKE 72,0: RETUPFN 
0: CALL - 144: PRINT 
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démarche. En effet, 
quiété des dialogues avec le buffer, il 
a aussitôt succombé aux charmes de 
l'ampersand, pour aboutir finalement 
à deux excellents programmes, 
certes, mais relativement longs et 
dont l’un est en assembleur. 


après s'être in- 


Pour rester concis, et je l'espère utile, 
j'ai inclus la routine de la ligne 100 
dans un petit programme Applesoft 
qui affiche le contenu d'un secteur 
choisi de deux manières : 


e Affichage du code hexadécimal 
des 256 octets du buffer. Pour ce 
faire, l'appel au moniteur s'impose 
et le dialogue s'établit facilement 
avec la méthode de S.H.LAM 
{voir Recueil 1, page 94). 

Affichage des caractères concaté- 
nés {ligne 40). Les lignes 60 et 70 
servent à modifier les caractères 
perturbateurs ou indésirables, tout 


qui s'affiche sous forme du damier 
(curseur de l'Apple //e) et permet 
notamment de retrouver dans la 
piste 17 ($11) la position des fi- 
chiers effacés que l'on souhaiterait 
récupérer. 


La table des codes hexadécimaux 
comportant 33 lignes, il pourrait être 
utile de prévoir sa sortie sur impri- 
mante. 

L'exploration du contenu des sec- 
teurs de leurs disquettes promet bien 
des surprises à ceux qui n'ont pas 
encore eu l'occasion de s'y attarder. 
La routine de la ligne 100 peut évi- 
demment être utilisée également 
pour l'écriture (C=2), mais il appar- 
tient alors à chacun de mesurer les 
conséquences de ses actes en fonc- 
tion de sa connaissance de la struc- 


ture des disquettes et du fonctionne- 
ment du DOS. 
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Avoir un Apple pour travailler, c’est 
bien. Mais en avoir deux ? Le pro- 
gramme DOUBLE APPLE n'effectue 
pas la multiplication des pommes, 
mais pennet de travailler SIMULTA- 
NEMENT sur deux programmes en 
Applesoft. 


Les utilisations sont nombreuses : ex- 
ploitation de deux versions d'un pro- 
gamme, consultation de l’un pen- 
dant que l’on édite l’autre, etc. 


L'initialisation, après le chargement 
de la routine, est lancée par un 
&CLEAR. Votre programme précé- 
dent semble disparaître mais n'est 
pas effacé: la commande &IN- 
VERSE échange les deux program- 
mes en mémoire. Ceux-ci peuvent 
étre chargés, sauvés sur disque, 
édités et bien sûr exécutés sous la ré- 
serve que les variables soient globa- 


L’Apple en multitâche ? 





1] 
SN NIEAA 
NI \h CZ 4 


AS 





Jérôme Leclercq 


La mémoire disponible pour le se- 
cond programme, après la com- 
mande &CLEAR, correspond à l’'en- 
semble de la mémoire libre moins 
$3000 octets (paramètre MARGE de 
l'assemblage) qui sont réservés pour 
l'extension du premier programme. 


Si ce dernier, en cours d'édition, ap- 
proche très près de la frontière, une 
série de deux beeps se fait entendre 
à chaque touche enfoncée. Il est 
alors préférable de sauver les deux 
programmes, puis de les recharger 
en relançant la routine, plutôt que de 
risquer d'écraser le début du second 
programme. 


Pour un aperçu des possibilités de la 
routine, lancer la démonstration avec 
EXEC DOUBLE APPLEDEMO et 
examiner l'interférence des variables 
entre les 2 programmes. 





ls pour l'ensemble des program commune est donc identique quel- oO 
mes: la valeur d'une variable que soit le programme actif. 
1 #----} DOUBLE APPLE <----%# 40 = 
2 41 * Controle 1’appel 
3 # Criation: 06/04/B4 J. Leclercaq 42 #8 === 
4 # Modifi(: 20/06/84 À. Avrane 43 ENTRY = # 
D) 44 CMP  KSBD clear 1 
6 ORG $300 45 BEQ CLEAR 4 
7 46 CMP  H$9E inverse L 
8 SAUZTXT = #06 47 BEQ INVERSE : 
9 SAV2END = 508 48 RTS + 
10 KSU = 38 49 À 
11 ITTAB = $67 SO À == : 
12 PRGEND = sAF Si # Clear: initiatise la scission e 
13 CHRGET = se! SD À === & 
14 SAUTXT = $E8 53 CLEAR LDA TXTTAB u 
15 SAVEND = $ED sa STA  SAUTXT 4 
16 NIFIERO = SEF 55 LDA TXTTAB+1 
17 INTDOS = $S3EA 56 STA  SAUTXT #1 
18 AMPER = 33FS 57 LDA  PRGEND 
19 NEW = $sD648 s8 STA  SAVEND 
20 KEYIN = $SFD18 5? LDA PRGEND+1 
21 BELL = $FF3A 60 STA  SAVEND* 1 
22 MARGE = 330 61 
23 62 LDA  PRGEND 
24 € aan 63 STA TXTTAB 
25 * Place & et la routine de saisie 64 LDA  PRGEND+:1 
26 # amas 65 CLC 
27 LDA #$4C Jjmp 66 ADC HMARGE 
28 STA AMPER 67 STA TXTTAB+1 
29 LDA  H<CENTRY 68 
30 STA AMPER+I 69 LDA #2 
31 LDA  H)ENTRY 70 STA  N(RF4RO 
32 STA AMPER+2 71 JSR CHRGET 
33 72 LDA TXTTAB 
34 LDA  H#<CENTRY2 73 SEC 
35 STA  KSU 74 SBC #1 
36 LDA  #)ENTRY2 75 STA  PTRDEBUT 
37 STA KSu+1 76 LDA TXTTAB+1 
38 JMP  INTDOS 77 SBC #0 
39 78 STA  PTRDEBUT +1 
D * 
Pom's n° 16 
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A CNE 


D 
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79 LDA 
80 STA 
81 PTRDEBUT = 

82 JMP 


83 


#O 
33333 
*-2 
NEW 


Ccras(! 


CEE 


8S #xInverse:Cchange les 2 progratwnes 


8é * 

87 INVERSE LDA 
88 CMP 
89 BNE 
90 LDA 
91 STA 
92 BNE 


93 P2VERSPI STA 
94 ECHANGE  LDA 


95 STA 
96 LDA 
97 STA 
98 LDA 
99 STA 
100 LDA 
101 STA 
102 LDA 
103 STA 
104 LDA 
105 STA 
106 LDA 
107 STA 
108 LDA 


#1 
NUMERO 
P2VERSPi 


NUMERO A1 
TXTTAB 
SAV2TXT 
TXTTAB+ 1 
SAV2TXT+I 
PRGEND 
SAV2END 
PRGEND+1 
SAV2END+ 1 
SAUTXT 
TXTTAB 
SAUTXT + 1 
TXTTAB+I 
SAVEND 
PRGEND 
SAVENDO®+ 1 


109 STA  PRGEND+I 


110 LDA  SAU2TXT 
111 STA  SAUTXT 
112 LDA  SAU2TXT+1 
113 STA SAVTXT+1 
114 LDA  SAV2END 
115 STA  SAVEND 
llé LDA  SAUV2END+1 
117 STA  SAVEND+1 
118 JMP  CHRGET 


119 


120 à === 
121 # Saisie: controle d(bordement 
122 * a —— 


123 ENTRY2 = % 





124 JSR KEYIN 
125 PHA 

126 LDA  NL#4ERO 
127 CMP  Hh1 

128 BNE EXIT 

129 LDA  PRGEND+I 
130 CLC 

131 ADC #1 stcuritt 
132 CP SAUTXT + 1 
133 8CC EXIT 

134 JSR BELL 

135 JSR BELL 

136 EXIT PLA 

137 RTS 

138 END 





#*8LOAD DOUBLE APPLE 


*300.387 


0300- A9 4C 8D 
0308- Fé 03 A9 
0310- 9D 85 38 
0318- EA 03 C9 
0320- FO 3A 60 
0328- 68 85 EC 
0330- BO 85 EE 
0338- BO 18 69 
0340- 85 EF 20 
0348- E9 0j 8D 
0350- 00 8D 58 
0358- 33 4C 48 
0360- DO 06 A9 
0368- 85 EF A5 
0370- 85 07 AS 
0378- 85 09 À5 
0380- 85 68 A5 
0388- 85 BO À5 
0390- 85 FC AS 
0398- 85 EE 4C 
O3A0-— 48 AS EF 
O3A8- B0O 18 69 
03B0- 20 SA FF 


JEXEC DOUBLE APPLE .DEMO 


IMONI CO 


JBLOAD DOUBLE APPLE 


ICALL 768 


JLORD DOUBLE APPLE.P1i 
J& CLEAR 


JLORD DOUBLE APPLE.P2 
J& INVERSE 


JLOAD DOUBLE APPLE.Pi 
I1LIST 


O REM P1/A.AUVRANE/200684 

10 REM PROGRAMME ji 

11 DEF FNLiD=L+1/7K 

20 FOR I = i TOC 33 

25 INVERSE : LIST 9,50: NORMAL 


30 : & INVERSE : GOTO ïi 
40 L = FN L(L) 

50 PRINT "L="L: NEXT 
70 PRINT 


80 PRINT "NOMBRE D'OR = *L 


JLOAD DOUBLE APPLE .R2 
ILIST 





0 REM P2/A.AVRANE/200684 

ji  INVERSE : LIST 10,45: NORMAL 
OS PRINT “I="I, 

10 REM PROGRAMME 2 

11 K = 1 

12 DEF FN K(K) = K # J 

40 FOR J = 1 TO 1 


41 :K = FN K(K): NEXT 
90 PRINT *K="Kk 

70 PRINT 

80 &  INVERSE : GOTO 40 
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Initiation à l’assembleur (6) 


Comme tous les langages, ou pres- 
que. l'assembleur peut servir à l'écri- 
ture de programmes complets. D'ail- 
leurs, Ja plupart des logiciels 
professionnels” vous sont livrés sous 
forme de codes machine, résultats de 
l'assemblage de volumineux pro- 
grammes sources. Dans ce cas, 
toutes les opérations du logiciel ont 
été conçues en assembleur : entrée 
au clavier et affichage à l'écran, af- 
fectation des valeurs aux variables, 
calculs, accès disques, impression. 

Même si l’on utilise alors intensément 
les routines offertes par la ROM de 
l'Apple ou par son DOS, il est évi- 
dent que la mise au point d'un tel 
logiciel représente un travail de lon- 
gue haleine et d'une grande minutie. 


Autre utilisation possible de l’assem- 
bleur, plus souple et plus facile à 
mettre en oeuvre, l'écriture de mo- 
dules de taille ‘’abordable”, utilisés 
en complément d'un langage évolué, 
fera l'objet du présent article. 

Dans la mesure où l'Applesoft consti- 
tue le compagnon inséparable de 
votre Apple I} ou //, nous examine- 
rons donc les movens par lesquels 
peut s’aménager une cohabitation 
entre ce Basic ”’évolué” et des routi- 
nes en langage-machine issues de 
votre travail de création. 
L'assembleur permettra alors de faire 
certaines choses plus vite ou mieux 
que le Basic, il en complètera le jeu 
d'instructions, mais l'essentiel de vos 
programmes sera toujours réalisé en 
Applesoft, garantissant ainsi une plus 
grande rapidité d'écriture. sinon un 
soulagement au niveau des maux de 
tête. 


CALL : pour et contre 


Pour appeler une routine à partir du 
Basic. il semble facile d'utiliser une 
instruction Basic comme CALL. que 
vous connaissez déjà bien. Pour ap- 
peler une routine débutant à 
l'adresse décimale A (point d'entrée), 
on insère CALL À à l'endroit voulu 
dans le programme et l'ordinateur 
procède à l'exécution de la routine 
avant de revenir à l'Applesoft. 


C'est effectivement la solution la plus 
simple, car on laisse finalement au 
Basic le soin d'assurer lui-même la 
jonction avec les routines, sans avoir 
à se préoccuper de la façon dont il y 
païvient. 

Le CALL est bien pratique pour ex- 
ploiter certaines routines de la ROM : 
CALL -868 pour effacer la fin de la 
ligne courante, par exemple. De 
même pour utiliser des routines de 
votre cru, préalablement chargées à 
l'adresse adéquate. 
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Mais l'usage du CALL comporte des 
limitations qui réduisent en fait son 
champ d'application : 

e Si la routine appelée réclame des 
paramètres, il n'est pas facile de 
les lui transmettre autrement que 
par des POKEs plus ou moins 
nombreux, à des adresses choisies 
à l'avance et qui doivent rester à 
la disposition de l'utilisateur. 


e Si la routine comporte plusieurs 
points d'entrée, en fonction des 
traitements à effectuer, il faut faire 
des CALLs à des adresses diffé- 
rentes, ou POKETr quelque part un 
paramèêtre permettant à la routine 
de déterminer sur quel point d’en- 
trée elle doit se brancher. 

e Si vous modifiez les routines et 
que cela déplace les points d’en- 
trée, il faut alors modifier égale- 
ment le programme Basic. 


Nous présenterons donc ici deux 
autres solutions pour réaliser l'inter- 
face entre Basic et langage-machine. 
La première fait également appel à 
l'Applesoft évolué”, au travers de 
l'instruction &, dont la renommée 
n'est plus à faire. La seconde utilise 
en revanche une routine en langage- 
machine de l'Applesoft, dont nous 
parlerons en détail plus avant. Dans 
un cas comme dans l’autre, l'utilisa- 
tion de ces techniques suppose un 
minimum de renseignements sur la 
façon dont l'Applesoft exécute et ma- 
nipule les instructions d’un pro- 
gramme. 


Analyse du RUN 


Structure d’un programme 


Un programme Applesoft est stocké 
en mémoire centrale à partir d’une 
adresse ‘’pointée” par les adresses 
$67 et $68 En situation normale, 
c'est-à-dire en l'absence de manipu- 
lation des pointeurs par le program- 
meur, cette adresse de début est 
$801: on trouve alors #$01 dans 
$67 et #$08 dans $68. L'adresse 
$800 contient toujours pour sa part 
la valeur O si l'adresse de début des 
programmes est fixée à $801. 

Si aucun programme ne se trouve en 
mémoire, après un NEW par exem- 
ple, les trois adresses successives 
$800, $801 et $802 contiennent la 
valeur O,. 


Une ligne de programme est stockée 
de la façon suivante : 


e Adresse de la ligne suivante, dans 
l'ordre octet bas / octet haut: si la 
deuxième ligne commence en 
$80A. on trouvera #$0A dans 
$801 et #$08 dans $802. Si la 


Gérard Michel 


troisième ligne débute en $818. 
on aura alors #$18 dans $80A et 
#$08 dans $80B. 

e Numéro de la ligne, dans l'ordre 
octet bas / octet haut. 

e Codes des instructions de la ligne. 

e La fin de la ligne est marquée par 
un 0. 


On sait que l'on est à la fin du pro- 
gramme lorsque l’on trouve O0 et O0 
dans les deux octets où l'on devrait 
autrement trouver l'adresse de la 
ligne suivante. Un programme Apple- 
soft se termine donc par trois O, un 
pour marquer la fin de la dernière 
ligne, et deux pour marquer la fin du 
programme. C'est la même configu- 
ration que celle des adresses $800 à 
$802 lorsqu'il n'y a pas de pro- 
gramme du tout. 


Pour bien comprendre ia suite, il se- 
rait bon de vous munir de votre 
Pom's 4 ou de votre recueil 1. et de 
l'ouvrir à l’article traitant des codes 
ASCII épluchés. 

En effet, les instructions de l’Apple- 
soft ne sont pas stockées ‘en clair”, 
mais sous la forme de ‘tokens”, 
c'est-à-dire de codes sur un octet, 
chacun de ces codes correspondant à 
une et une seule instruction. Ainsi, si 
vous avez un PRINT dans une ligne, 
vous ne trouverez pas en mémoire 
les codes ASCII des lettres P. KR, 1, N 
et T, mais tout simplemeni BA, qui 
est le token de PRINT en hexadéci- 
mal. 

Les autres composantes des instruc- 
tions (variables, constantes numéti- 
ques, constantes alphanumériques...) 
sont en revanche conservées sous 
forme ASCII Pour PRINT 39, par 
exemple. on aurat en mémoire BA 
33 39. Ii s'agit toujours d'ASCII posi- 
tif. avec le bit 7 des codes à O0, car 
les tokens de l’Applesoft utilisent 
l'ASCII négatif (bit 7 à 1) et s'éten- 
dent des valeurs #$80 à #$EA. 


L'Applesoft utilise un pointeur de 
programme, situé aux adresses $B8- 
$B9. Ce pointeur est géré par une 
routine commençant à l'adresse $Bi 
(baptisée souvent CHRGET), sur la- 
quelle nous reviendrons plus loin en 
détail. Pour l'heure, il nous suffit de 
savoir que ce pointeur contient 
l'adresse du caractère du programme 
Basic (token, élément d'un nom de 
variable...) que l'interpréteur est en 
train d'analyser. Prenons l'exemple 
du petit programme suivant : 


10 PRINT 39 


Il est stocké en mémoire à partir de 
$801 sous la forme : 


80i- 09 08 OA 00 BA 33 39 
808-— 00 00 00 


- à 
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Lorsque l'interpréteur abordera l’ana- 
lyse du token de PRINT (BA), le 
pointeur de programme $B8-$B9 
contiendra l'adresse de BA, soit $805 
ie $05 dans $B8 et #$08 dans 
B9) 


Lorsque vous lancez l'exécution de 
votre programme par RUN, l’Apple- 
soft procède tout d’abord à quelques 
initialisations : remise à zéro des va- 
riables, positionnement du pointeur 
de programme au début de celui-ci 
(soit adresse contenue dans $67-$68, 
diminuée de 1}, c'est-à-dire à $800 
dans le cas standard... 

On arrive ensuite sur une routine dé- 
butant en $D7D2 et qui constitue le 
coeur de l’interpréteur de l’'Applesoft, 
car c'est elle qui ‘lit’ les instructions 
du programme, en prépare l'analyse 
et assure le branchement sur les rou- 
tines de traitement correspondant à 
chacune de ces instructions. 


L’exécution du programme 


Le listing ci-dessous reprend l’essen- 
tiel de la routine d'exécution des ins- 
tructions. Nous en examinerons les 
points principaux, afin de déterminer 
dans quelles conditions on peut sans 
risques ajouter à l'Applesoft d’autres 
instructons, au moyen de routines 
’’maison”. 


0702- BA TSX 

0703- 36 F8 STX $Frs 
0705- 20 58 08 JSR 306858 
D7D8- AS 84 LDA 568 
D7DA+ Ag 89 LOY 569 
D70C- AG 76 LDXx $76 
D7D0E- E8 INX 

070F- FO 04 8BEQ #07ES 
D7Et- 85 79 STA 379 
07E3- 84 7A STY s7A 
07E5- A0 00 LOY #09 
O7E7- st 88 LDA (588) ,Y 
D7E9- DO 57 ÊNE 50842 
07E8- A0 02 LDY #502 
O7E0- 81 88 LDA {$688),Y 
D?7EF- 18 CLC 

O7F0- FO 34 2ea $D924 
07F2- ca INY 

07F3- Gi 63 LDA (#83) ,Y 
07F5- 85 75 TA 575 
D7F7- ca INY 

D7F8- 81 88 LOR (588) ,Y 
07FA- 85 74 STA 576 
D7FC- ?3 TYA 

07FO0- +5 83 ADC $°s8 
OFFF- 35 66 ST: +84 
De0i- 90 02 Bcc 40805 
0803- Es 87 INC 587 
b805- 24 F2 BIT sF2 
0807- 10 14 BPL $08i0 
0809- Aé 76 LOx 376 
0308- ES INX 

080c- F0 OF 8eQ 506810 
980E- À? 23 LoA #523 
0810- 20 %C 08 JSR $085€ 
dA13-  Ae 73 LOX 875 
D815- A5 76 LOA 576 
0817- 20 24 E9 JSR SED24 
D81A- 20 57 D8 JSR 50657 
0810- 20 81 00 JSR s0081 
08206- 20 28 08 J5R 50828 
D823-  4C 02 07 JMP $0702 
D324- F0 62 8Ea $088A 
D823- F0 20 BEQ $0857 
D82A- É9 80 SBC #80 
D82c- 90 11 Bcc 3083F 
D82E- c? 40 CMP n$40 
0830-+ 80 14 8Ccs $0844 
D832- a ast 

0833- a3 TAY 

0834- 87 01 0e LDA SD601,Y 
0837- 48 PHA 

G838- 8? 00 DO LOR $0000,Y 
0838- 438 PHA 

083C- 4C Bi 00 JMP $008t 
093F- 4C dé DA Jme SDAâé 


0842- C7 3A CMP #$3A 
0844 FO 8F Sea 40805 
D846- ac C9 DE JP s0EC7 
0849- 34 SEC 

D84a- AS 67 LDA $67 
084C- E9 ot SBC ##01 
084E- A4 3 LeY 563 
0850- 80 01: BCs 50853 
0852- 88 DEY 

0853- 85 70 STA 570 
0855- 84 7E STY s7E 
0857- 60 RTS 

0858- Ab 00 C0 LDA #C000 
0858- C? 83 CMP #s93 
D850- FO Ot BEe 50840 
085F- 60 RTS 

0860- 20 53 05 JSR +0S53 
0863- A2 FF EDX #SFF 
0865- 24 08 BIT 508 
D867- 10 03 BPL $084C 
D869- 4C E9 F2 JMP $F2E7 
D84C-— C7? 03 CP H$03 
D86E- 89 01 BCS sD87i 
087C- 18 CecC 

0871- D0 3C BNE $08AF 
D973- AS 88 LoA 583 
087S- Ag 89 LDY 58? 
0877- Ao 76 LEX #76 
D879- E8 INX 

D87A- F0 0€ SEQ s0886 
D87C- 85 79° STA 579 
D87E- 84 7A STY SA 
D880- RS 75 tor $75 
2882- A4 76 LeY $7é 
D884- 85 77 STA $77 
088s-— 84 78 STY s78 
6888- 68 PLA 

D887- 483 PUR 

0esA- A9 50 LDA #850 
D88c- A0 D3 LOY #03 
088E- 70 03 RCC 408973 
D89?0- 4C 31 D4 JMP 50431 
D8?3- ac 3C 04 JMP 5D43C 
D8946-+ D0 17 SNE $50SAF 


— $D7D2-$D7D3: sauvegarde du 
pointeur de pile en $F8. 


— $D7D5 : la routine en $D858 véri- 
fie si l’on a tapé CTRL-C (code cla- 
vier #$83) en cours d'exécution du 
programme. Si tel n’est pas le cas, et 
c'est ce qui nous intéresse ici, on re- 
Vient simplement par RTS. 


— $D7D8-$D7DA: on charge le 
pointeur de programme dans les re- 
istres À et Y. Lorsque l’on arrive en 
$D7D2 pour la première fois après le 
RUN, le compteur de programme 
contient $800 dans le cas standard 
{adresse de début du programme 
moins 1). De manière générale, cha- 
que fois que l'on aborde $D7D2 
pour exécuter une nouvelle instruc- 
ton, $B8-$B9 contient l'adresse de 
l'instruction à exécuter, diminuée de 
1 


— $D7DC à $D7DF : en $75-$76 se 
trouve stocké le numéro de la ligne 
en cours d'exécution, toujours dans 
l'ordre poids faible / poids fort. Si 
l'on est en mode immédiat. l'octet 
haut du numéro de ligne est rem- 
placé par #$FF dans $76: par consé- 
quent, si X contient la valeur de $76 
et si l’on augmente X de 1. on ob- 
tiendra O si $76 contenait #ŸFF, cas 
du mode immédiat. Le test BEQ de 
l'adresse $D7DF provoquera donc le 
branchement en $D7E5 si l’on est en 
mode immédiat. 

Bien que ce soit un peu hors sujet, 
précisons que l'exécution des ordres 
Basic donnés en mode immédiat 
passe également par la routine 
$D7D2. comme le montre les ins- 
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tructions ci-dessus. On utilise donc 
également la routine CHRGET en 
$B1, mais le ‘pointeur de pro- 
gramme” pointe alors sur les adres- 
ses des instructions dans le buffer 
d'entrée au clavier, et non plus dans 
la zone de stockage des programmes. 


— $D7EI-$D7E3: en $79-$7A se 
trouve toujours stockée, en mode 
programme, l'adresse de l'instruction 
à exécuter diminuée de 1. L'instruc- 
tion CONT utilise cette adresse pour 


relancer l'exécution. On copie donc 
en $79-$7A le contenu de $B8-$B9. 


— $D7E5 à $D7E9 : sans modifier la 
valeur du pointeur de programme. 
on examine l'octet pointé par ce der- 
nier. Si l’on trouve O, tout va bien. et 
c'est effectivement le cas lorsqu'on 
arrive ici juste après RUN puisque 
$800 contient ©. 

Sinon, on saute en $D842, où l'on 
vérifie cette fois s'il s'agit de ‘”:” 
(#$34A). Dans l’affirmative, on re- 
tourne dans la routine, mais dans le 
cas contraire, on saute à $DEC9 qui 
envoie une SYNTAX ERROR. 
Conclusion : quand on arrive en 
$D7D2 pour exécuter une nouvelle 
instruction, $B8-$B9 doivent pointer 
sur l'octet qui précède l'instruction en 
question et cet octet doit être 0” ou 
7:” afin d'éviter une erreur de syn- 
taxe. C'est un point qu'il convient de 
garder en mémoire si l’on veut intro- 
duire de nouvelles instructions. 


—$D7EB à $D7F0: nous sommes 
dans le cas où $B8-$B9 pointe sur 
un 0, ce qui peut correspondre à 
deux situations : on est au tout début 
du programme ($800) ou on est à la 
fin d’une ligne (marquée par un O, 
comme rappelé plus haut). En tout 
état de cause, on doit avoir juste 
après le © l’adresse de la ligne sui- 
vante, Foctet de poids fort se trou- 
vant deux octets plus loin que la po- 
sition actuelle pointée par $B8-$B9 
(LDY #$02 en $D7EB). 

Comme l'adresse de début d’un pro- 
gramme ne peut se trouver en des- 
sous de $800 si l'on veut éviter de 
traumatiser profondément l'Apple, 
l'octet de poids fort de l'adresse 
d’une instruction ne peut être à O0 
que si elle correspond à la marque 
de fin de programme (voir supra), ou 
à l'absence de programme ($800- 
$801-$802 à zéro). Si tel est le cas. 
on saute en $D826 qui nous amène 
en $D88A. Sans entrer dans les dé- 
tails, précisons que le JMP $D43C 
nous ramène finalement en mode 
immédiat, comme toujours en fin 
d'exécution de programme Apple- 
soft. 


— $D7F2 à $D7FA: il s’agit cette 
fois de passer à la ligne suivante. 
Aux index 3 et 4 par rapport à la po- 
sition actuelie pointée par $B8-$B9, 
on trouve le numéro de cette ligne, 
que l'on stocke alors en $75-$76 
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(numéro de la ligne en cours d’exé- 
cution}. 


— $D7FC à $D803: en ajoutant 4 
(valeur de Y transférée dans A) à la 
valeur de $B8-$B9, on déplace le 
pointeur de programme qui contient 
maintenant l'adresse de la première 
instruction de la ligne, diminuée de 
1 


— $D805 à $D81A. c'est là que l'on 
revient si l'on était arrivé dans 
$D7D2 en pointant sur un "et non 
sur un O. Les deux cas de figure se 
rejoignent. 

Si le contenu de $F2 est négatif, on 
est en mode TRACE, sinon on passe 
directement à la suite (BPL $D81D). 
comme on le fait également si l'on 
est en mode immédiat ($76 contient 
alors #$FF). 

En mode TRACE, on affiche un # 
(code ASCII $23) suivi du numéro 
de la ligne lu en $75-$76) au 
moyen des routines $DB5C (affiche 
le contenu de  l'accumulateurl. 
$ED24 (affiche je contenu de X suivi 
de celui de Ai et $DB57 (affiche un 
espace). 


— $D81D: appel de la routine $B1. 
qui va nous retourner le premier ca- 
ractère de l'instruction. 

Cette routine CHRGET met à jour le 
pointeur de programme et va lire 
dans la zone de stockage du pro- 
gramme Applesoft les octets de celui- 
ci Elle joue un rôle fondamental 
dans le fonctionnement de l'Apple- 
soft standard’ et peut également 
rendre de grands services pour l'ap- 
pel de routines en langage machine à 
partir du Basic. Aussi en analyserons 
nous en détail le contenu. au moyen 
du listing ci-dessous 


oogi- Es 88 INC 383 
0083- oo 0? BNE $0087 

0085- Es B? INC 38? 

00B7- AD 93 02  LOA $0205 

008a- C7 34 CMP 433 

G08c- B0 0A ECS  480C3 

008E- C7 20 ChP ##20 

00C0- F0 EF BEQ soeëi 

00c2- 38 sec 

o0C3- E9 30 SBC +530 

00C5- 38 sec 

oocé- E9 Do SBC +500 

00c8- 40 RTS 

60C7- 40 27? 

00c8- C7 23? 

00CC- 32 322 

00C0- : 00 3rK 

00CE- 00 GrK 

00CF- 00 BPK 

—$BI1 à $B7: incrémentation du 


pointeur de programme $B8-$B9. 
selon une méthode déjà décrite dans 
les articles précédents (l'octet de 
poids fort est incrémenté lorsque 
l'octet de poids faible passe à 0). et 
chargement de loctet pointé par 
$B8-$B9 dans l'accumuiateur 

Notez bien ici l'astuce des program- 
meurs qu: ont placé le pointeur à 
l'intérieur mème de la routine. juste 
après le code de l'instruction LDA 
Ainsi la routine se modifie elle- 
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même: on aura toujours en $B8- 
$B9 l'adresse de l'octet que l'on veut 
lire et que l'on retrouvera dans l'ac- 
cumulateur après le LDA 

Dans notre listing. l'instruction en 
$B7 est LDA $0205. cela provient 
de ce que la liste a été effectuée en 
mode immédiat. $B8-$B9 pointant 
alors toujours sur le buffer d'entrée- 
clavier, situé aux adresses $200 à 
$2FF. Après un RUN. en revanche, 
$B8-$B9 est initialisé à l'adresse de 
début du programme moins 1 : dans 
la situation norrnale. on aura donc 
en $B7 instruction LDA $0800. En- 
suite l'adresse dont on charge le 
contenu dans À peut varier de deux 
façons: soit séquentiellement à cha- 
que appel de $B1 (qui incrémente 
$B8-$B9). soit par manipulation di- 
recte (calcul) des valeurs de 5$B8- 
$B9. comme on l'a vu plus haut aux 
adresses $B7FC à $D803 

Il'est important de noter que chaque 
modification de $B8-$B9 revient en 
fait à changer l'octet sur lequel por- 
tera l'analyse de l'interpréteur de 
l'Applesoft. soit à l'intérieur de l'exa- 
men d'une instruction. soit au mo- 
ment de l'exécution d'une nouvelle 
instruction (voir les tests du début de 
la routine $D7D2). Si l'on veut par 
conséquent ajouter des instructions à 
l'Applesoft. sans le perturber outre 
mesure (le seuil de tolérance étant 
marqué par l'apparition d'une SYN- 
TAX ERROR!. il convient de vérifier 
que les valeurs de $B8-$B9 et de 
l'accumulateur sont  convenables 
pour le Basic avant de lui rendre la 
main. C'est un point sur lequel nous 
reviendrons plus loin au travers de 
quelques exemples 


— $BA-$BC le contenu de l'accu- 
mulateur, c'est-à-dire l'octet que l'on 
vient de lire dans le programme. est 
comparé à #$3A. code ASCII du 
"*, forme sous laquelle sont stockés 
les signes ‘‘* que vous utilisez pour 
séparer plusieurs instructions sur une 
méme ligne Le test BCS provoque 
le branchement en $C8 (RTS) si A 
est supérieur ou égal à #$3A. ce qui 
sera notamment le cas pour les 
tokens de l'Applesoft et les lettres 
constituant le premier caractère d'un 
nom de variable 


— $BE-$CO: #$20 est le code 
ASCII de l'espace. forme sous la- 
quelle il est stocké dans un pro- 
gramme. Si le caractère que l'on 
vient de lire est un espace. on 
lignore pour passer directement au 
caractère suivant en incrémentant le 
pointeur de programme 

Cela ne signifie pas toutefois. par 
exemple. que les espaces placés 
entre guillemets après un PRINT ne 
seront pas pris en compte. puisque 
vous pouvez constater aisément 
qu'ils sont respectés à l'affichage ou 
à l'impression. C'est en effet la rou- 
tine qui effectue le traitement corres- 
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pendant à un PRINT qui se charge 
de lire la donnée à imprimer et d'uti- 
liser les espaces, et le branchement 
sur cette routine, comme nous le ver- 
rons plus loin, s'effectuera toujours 
avant que l'on ait rencontré et ignoré 
le premier espace dans une chaîne 
de caractères en le lisant par 
CHRGET ($B1) Ne sont donc ainsi 
effectivement délaissés que les espa- 
ces lus dans un proyramme dans le 
cadre de l'interprétation d'instructions 
pour lesquelles ils ne sont pas signifi- 
catifs (espaces séparant l'instruction 
DATA du premier item de DATA. 
par exemple) 


— $C2 à $C6 : nous sommes dans le 
cas où le contenu de l'accumulateur 
est inférieur à #$3A et différent de 
#$20. On procède alors à deux 
soustractions successives, mais à l'is- 
sue desquelles le contenu de l'accu- 
mulateur n'aura pas changé. 

En effet, si l'on additionne #$30 (48 
en décimal} et #$D0 (208 en déci- 
mal), on obtient #$100 (256}. On 
ne manipule ici que des octets, rai- 
son pour laquelle on procède à la 
soustraction en deux étapes. mais 
puisque la retenue est toujours re- 
mise à 1 (SEC) avant l'opération, on 
ne retre finalement de l'accumula- 
teur que le poids faible de # 
$30+#$D0, soit 00, et l’accumula- 
teur retrouvera donc sa valeur initiale 
à l'issue du calcul 

En fait. cette manipulahon apparem- 
ment neutre permet d’étabiir une dif- 
férence entre les chiffres (codes 
ASCI de #$30 à #$39) et les autres 
caractères de code ASCII inférieur à 


#5$30: 


e Si A est supérieur ou égal à #$30. 
A — #$30 sera inférieur à #$D0 
en valeur absolue. Par suite, à l’is- 
sue de la soustraction (A — #$30) 
— #$D0, le bit de retenue C sera 
positionné à 0 (voir l'article consa- 
cré à SBC pour le résultat de la 
soustrach'on d'un octet à un autre 
plus petit que lui). 

e Si À est inférieur à #$30, À — 
#$30 sera supérieur ou égal à 
#$D0 en valeur absolue. et le bit 
C sera positionné à 1 après (A — 
#$30) — #$D0 

En résumé. lorsque l'on sort d8 la 

routine CHRGET, la valeur du bit C 

dépend de la nature du caractère 

que l'on vient de lire dans le pro- 

gramme . 

e C=1 sf A est supérieur ou égal à 
#$3A (:). puisque l'on sort au test 
BCS de l'adresse $BC 

e C=0 si À contient un chiffre 
(codes ASCII #$30 à #$39) 

e C=1 si À contient un caractère de 
code ASCII inférieur à #$30 


Ces différences seront ensuite exploi- 
tées par l'interpréteur et les routines 


correspondant à chaque instruction 
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de l'Applesoft pour en vérifier la 
bonne syntaxe. 


Par ailleurs, le bit Z joue également 

un rôle, sur lequel nous reviendrons, 

en sortie de la routine $B1. Deux cas 
peuvent conduire à Z= 1 : 

e Le caractère lu est ce qui 
amène Z=1 lors de l'instruction 
CMP #$3A. 

e Le caractère lu est un O {fin de 
ligne Applesoft}, ce qui provoque 
également Z=1 à l'issue de la der- 
nière soustraction SBC #$D0, 
puisque le résultat obtenu alors est 
à nouveau (. 


Maintenant que nous savons ce qui 
se passe dans la routine CHRGET.. 
nous pouvons ressortir de notre JSR 
$B1 de l'adresse $D81D et retourner 
dans l'interpréteur à l'adresse sui- 
vante, soit $D820. Celle-ci nous di- 
rige aussitôt vers une autre sous-rou- 
tine par un JSR $D828. 


— $D828: l'accumulateur contient 
toujours l'octet que l'on vient de lire 
dans le programme par le JSR $B1 
Les indicateurs du registre d'état sont 
positionnés en fonction des résultats 
obtenus dans cette même routine 
$B1. En particulier, le bit Z est à 1 si 
l'octet lu est O ou ”’:” (voir ci-dessus). 
Le test BEQ branche donc sur 
$D857 (RTS) si l’on vient de lire 
l'octet de fin d'une ligne (0) ou le sé- 
parateur d'instructions (:). Dans l’un 
ou l'autre cas, on revient donc de 
suite en $D823 pour passer à l'ana- 
lyse de l'instruction suivante. si elle 
existe, par un JMP $D7D2. 


— $D82A-$D82C : les tokens de 
l'Applesoft vont de #$80 à #$EA. 
De plus, si c’est un token que l'on 
vient de lire par $B1. le bit C est à 1 
et, par l'instruction SBC #$80, on 
ne retire donc que #$80 de la valeur 
du token (l'opposé de la retenue 
vaut 0). Si l’accumulateur content 
un token, on aura donc toujours 
C=1 après la soustraction, d'où 
échec du test BCC. 

On ira ainsi en $D83F si À n'est pas 
un token (nom de variable, cons- 
tante, caractère de contrôle...) pour 
sauter en $DA46, routine de l’Apple- 
soft traitant l'affectation des valeurs 
aux variables (c'est elle qui provo- 
quera par la suite une erreur de syn- 
taxe si cette dernière n’est pas cor- 
recte). 


— $D82E-$D830: c'est un token 
que l’on a lu par $B1 et, après le 
SBC #$80, l’accumulateur contient 
une valeur comprise entre O et 
#$6A. Après CMP #$40, on aura 
Cæ1 si À est supérieur ou égal à 
#$40; dans ce cas, BCS branche sur 
$D846 qui va nous envoyer SYN- 
TAX ERROR. 

Si l’on regarde la liste des tokens, on 
constate que le dernier qui passera 
les tests des adresses $D82A à 
$D830 sans provoquer d'erreur est 
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NEW (code #$BF). Tous les tokens 
dont le code est supérieur à #$BF 
sortiront en erreur au BCS de 
l'adresse $D830. Or. les dits tokens 
(par exemple TO. FN, THEN...) sont 
en quelque sorte ‘’non autonomes”, 
en ce sens qu'ils doivent toujours 
être précédés d'un autre et ne vien- 
nent jamais au début d'une instruc- 
tion. C’est donc la routine de traite- 
ment du token ‘maître (par 
exemple FOR, DEF. IF.) qui se 
chargera ultérieurement de les “récu- 
pérer” dans le programme. Ceci ex- 
plique pourquoi l'interpréteur envoie 
une SYNTAX ERROR si l’on arrive 
en $D828, alors que l'on commence 
seulement l'analyse d'une instruction, 
avec un token de code supérieur à 
#$BF. 


— $D832 à $D83B : l'accumulateur 
contient le code d'un token valable 
en début d'instructon, mais diminué 
de #$80, soit une valeur comprise 
entre O et #$3F. 

À partir de $D000 sont stockées sur 
deux octets, dans l’ordre poids faible 
/ poids fort, les adresses de début. 
moins 1, des routines machine cor- 
respondant au traitement réalisé par 
chaque token de l'Applesoft En 
$D000 - $DO01. par exemple, on 
trouve l'adresse moins 1 de la rou- 
tine du premier token dans l’ordre 
des codes, c'est-à-dire END, en 
$D002 - $D003, on trouve l'adresse 
moins 1 de la routne du second 
token FOR... 

Prenons l'exemple concret de l'ins- 
truction HOME dont le token est 
#$97. On obtient son numéro dans 
la liste des tokens en lui retirant 
#$80, ce qui nous donne #$17. 
Comme chaque adresse de routine 
occupe deux octets, il faut multiplier 
#$17 par 2 pour savoir à quelle dis- 
tance (index) du début de la table 
nous trouverons Ja routine de 
HOME. En effet, la routine du pre- 
mier token (dont le numéro dans la 
liste est 0) est donnée en $D000+ 0 
et $D000+1; la routine du second 
(numéro 1} en $D000+2 et 
$D000+3, celle du troisiéme (nu- 
méro 2) en $D000+4 et $D000+5 
. De façon générale, si T est le 
token d’une instruction Applesoft, N 
= T — #$80 est son numéro dans la 
liste des tokens et si À = 2 « N, on 


trouvera l'adresse de la routine ma-, 


chine correspondante (toujours dimi- 
nuée de 1} aux adresses $D000+A 
et $D000+A4+1. Dans le cas de 
HOME, À = 2 + #$17 = #$2E. 
Aux adresses $D02E et $D02F on 
trouve 57 FC. ce qui nous donne 
comme adresse finale $FC58 aprés 
ajout de 1. Or $FC58 (ou encore 
—936 en décimal) est l'adresse de la 
routine du moriteur qui efface tout 
l'écran et positonne le curseur en 
haut et à gauche. On voit ainsi que 
HOME, par l'intermédiaire de l’inter- 
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préteur, permet finalement d'appeler 
une routine en langage machine qui 
assure le traitement voulu, en l'oc- 
currence le nettoyage de l'écran. 
Revenons maintenant aux instruc- 
tions de l'interpréteur qui réalisent 
cet appel de routine. Quand on ar- 
rive en $D832, on a en fait dans 
l'accumulateur le numéro du token 
dans la liste et, par ASL. on multiplie 
ce numéro par 2 avant de le charger 
dans le registre Y par TAY. Par LDA 
$D001, Y et PHA, on empile l’octet 
fort de l'adresse de la routine; par 
LDA $D000, Y et PHA, on empile 
son poids faible. Plus précisément. 
on à maintenant au sommet de la 
pile l'adresse de la routine moins 1. 


— $D83C : par JMP $B1, on va lire 
le caractère qui suit le token que l’on 
vient d'interpréter. De plus, comme 
on utilise JMP et non JSR, le som- 
met de la pile est toujours constitué 
par l'adresse de la routine du token 
moins 1. 

Par suite, lorsqu'on sort de CHRGET 
par RTS, le processeur dépile les 
deux octets du sommet, leur ajoute 1 
{voir articles précédents) et saute à 
l’adresse ainsi obtenue. On se bran- 
che donc sur la routine de traitement 
du token, avec dans l'accumulateur 
le caractère qui suit le-dit token dans 
le programme. Le tour est joué et 
cela vous explique pourquoi la table 
débutant en S$DO000 contient les 
adresses des routines diminuées de 1 
et non les adresses exactes. 
N'oublions pas cependant que l'on 
est toujours sous le contrôle du JSR 
$D828 de l'adresse $D820: lors- 
qu'on arrive dans la routine du 
token, on a 22 D8 au sommet de la 
pile (adresse de retour $D823, dimi- 
nuée de 1 et empilée avec le poids 
faible au sommet), D’une façon ou 
d'une autre, c'est-à-dire soit par un 
RTS, soit par un JMP $B1 pour utili- 
ser le RTS de l'adresse $C8 par 
exemple, cette adresse sera utilisée 
au retour de la routine du token et 
l'on reviendra en $D823 pour exécu- 
ter un JMP $D7D2 et aborder l’ana- 
lyse d'une autre instruction. Rappe- 
lons qu'il faut alors, pour éviter les 
erreurs, que $B8-$B9 pointe effecti- 
vement sur un O0 ou un ”:”. Dans le 
cadre de l'ajout d'instructions à l'Ap- 
plesoft, le fait que leur analyse se 
fasse à l'issue d'un JSR $D828 et 
qu'il faille en revenir en pointant sur 
0 ou ”:” peut réclamer certaines pré- 
cautions, qu'illustreront les exemples 
donnés plus loin. 

— $D849 à $D857 : bien qu'elle ne 
fasse pas directement partie de notre 
sujet. précisons que cette routine cor- 
respond au traitement effectué par 
l'instruction RESTORE. Elle met le 
pointeur de DATA ($7D-$7E) à 
l'adresse de début du programme 
moins 1 (contenu de $67-$68 dimi- 
nué de 1). 
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Utilisation de & 


Rappelons tout d'abord que & est 
une instruction de l'Applesoft, dont le 
token est codé #$AF. Il s’agit donc 
d'un token valide en début d'instruc- 
tion, et l'accès aux routines machine 
correspondant à & suivra le même 
processus que pour tout autre token. 
C'est par le biais de $D7D2 et de la 
sous-routine débutant en $D828 que 
se fera l'appel. 

Dans la table $D000 des adresses de 
routines. les valeurs données pour & 
sont F4 03, et l'utilisation de & 
conduira finalement à un branche- 
ment sur $3F5. C'est à ce niveau 
que peut intervenir le programmeur, 
en mettant aux adresses $3F5 - $3F6 
- $3F7 une instruction JMP $XXYY, 
soit 4C YY XX en langage machine, 
où YY désigne le poids faible de 
l'adresse où commence la routine 
d'exécution des instructions précé- 
dées de &. et XX le poids fort de 
cette même adresse. 

Par exemple, si l'on met en $3F5 les 
codes 4C 00 03, l'interpréteur de 
l'Applesoft sautera à l'adresse $300 
chaque fois qu'il rencontrera un & 


Version & : lisa 1.5 


0300 1 
0300 A94C : 
0302 BDF503 3 
0305 A910 4 
0307 BDF603 5 
030À A903 6 
030C 8DF703 7 
030F 60 8 FIN 
0310 FOFD 9 DEB 
0312 C9BA 10 
0314 000E 11 
0316 A424 12 
0318 8406 13 
0314 209CFC 14 
031D A406 15 
031F 8424 16 
0321 4C9E03 17 
0324 C984 18 So 
0326 F004 19 
0328 C9BE 20 
0324 DOIF 21 
032C A93A 22 
032E 8538 23 
0330 A903 24 
0332 8539 25 
0334 20EA03 26 
0337 4C9E03 27 
033A AD00CO 28 ENTREE 
0330 10FB 29 
033F 2C10C0 30 
0342 C98D 31 
0344 F004 32 
0346 C9A0 33 
0348 90F0 34 
0344 60 35 S2 
034R C997 36 S3 
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dans le programme. Si l’on met 4C 
00 80, le saut se fera à l'adresse 
$8000.. La routine concernée (en 
$300, ou en $8000..) doit alors se 
charger de lire la suite de l'instruction 
dans le programme et de réaliser le 
traitement demandé. 


Exemple d’application 


Supposons que le fonctionnement de 
certaines instructions de l'Applesoft 
ne soit pas conforme à nos voeux et 
que, par ailleurs. nous voulions lui en 
adjoindre quelques autres. Par hypo- 
thèse, nous savons comment écrire 
en assembleur les routines nécessai- 
res et nous utiliserons & pour 
contraindre l'Applesoft à leur faire 
appel chaque fois que bon nous 
semblera.. 


La liste des adaptations à réaliser est 
la suivante : 


e PRINT devra toujours effacer la 
ligne sur laquelle on veut afficher 
quelque chose avant de procéder 
à cet affichage. L'instruction sera 
&PRINT et utilisera exactement la 


ORG 5300 APTE 
ÉDRNRENC 0351 892000 
STA $3F5 dede 

LDA #DEB ak 00 
Sea 0356 10F9 
EDEN TYPES 0358 2039FB 
run 035B 2058FC 
RTS 035E A000 
BEQ FIN Seb de 

CMP #SEA 0361 992000 
BNE SO AC 

LDY #24 0365 C004 
core 0367 D0F7 
JSR $FC9C pas 
a. _— 036C C9EF 
He 036E D006 
CMP #$84 0370 2058FC 
BEQ Si 0373 4C8503 
CMP #$PE 0376 C?kAk 
BNE 53 0378 DO0£ 
LDA HENTREE 037A 20DDFB 
STA +38 037D 20D00FB 
LDA /ENTREE 0380 A9BA 
STA 439 0382 4CA103 
JSR $3EA 0385 08 

JMP MO 0386 A476 
LDA $C000 0388 COFF 
BFL ENTREE 038 D00R 
BIT $C010 038C AO!B 
CMP ##$8D 038E 8438 
BEQ S2 0390 AOFD 
CMP #$AO 0392 8439 
BCC ENTREE 0394 20EA03 
RTS 0397 23 

CHE #597 0398 208100 





même syntaxe que PRINT 
(&PRINT A.  &PRINT ZZ$, 
&PRINT “TEXTE”; ….). 

e Dans les instructions GET et 

INPUT, rebaptisées &GET et 

&INPUT, on refusera tout carac- 

tère de contrôle à l'exception de 

RETURN. Le reste de la syntaxe 

sera inchangé. 

L'instruction HOME, soit 

&HOME, effacera tout l'écran, 

quelles que soient les limites de la 

fenêtre, 

L'instruchon NEW, soit &NEW, 

réalisera en revanche le traitement 

d'un HOME standard, c’est à dire 
effacement dans les limites de ja 
fenêtre. 

e L'instruction LET, soit &LET, 
fonctionnera comme un PRINT 
précédé d'un double beep. Ainsi, 
&LET “TEXTE”, par exemple, 
produira un double beep et affi- 
chera TEXTE à l'écran. 


Voyons maintenant comment pro- 
grammer tout cela en analysant le lis- 
ting source de la routine donné ci- 
après. 


37 BNE Sd 

38 LOY #3 

37 80 LDA $20,Y 
40 PHA 

41 DEY 

42 BPL BO 

43 JSR $FB39 
44 JSR $FCS58 
45 LDY #0 

46 Bi PLA 

47 STA $20,Y 
48 INY 

47 CPY #4 

S0 BNE BI 

Si JMP Sé 
52 S4 CMP #$BF 
53 BNE S5 

54 JSR $FCS8 
55 JMP Sé 

56 S5 CMP ##$AA 
57 BNE Sé 

58 JSR $FBDD 
97. JSR $FBDD 
60 LDA #&BA 
61 JMP M1 

62 Sé PHP 

63 LIDY $7é6 
64 CP: H#SFF 
65 BNE Al 

66 LDY #$1ER 
67 STY 838 
68 LOY #$FD 
69 STY $35 
70 JSR $3EA 
71 AÀ!i PLP 

72 JSR $B1 





0398 4C1003 73 
039E 20R700 74 MO 
03At BA 25: M1 
0£A2 ES 76 
0343 E8 AA 
0344 SA 78 
0345 4C20838 77 
*300.2A7 


0300- A9 4C 8D FS 03 A9 
0308- Fé 03 A9 03 8D F7 
0310- FO FD C? BA D0 &8E 
0318- 84 04 20 9C FC A4 
0320- 24 4C 9E 03 C9 B4 
0328- C9 BE D0 1F 49 34 
0330- À9 03 85 39 20 EAÀ 
0338- 9E 03 AD 00 CO 10 
0340- 10 CO C9 8D FO 04 
0348- 90 F0 40 C9 97 DO 
0350- 03 B9 20 00 48 88 
0358- 20 39 FB 20 S8 FC 
0360- 68 99 20 00 C8 CO 
0368= F7 :4C 85: 03-07 BF 
0370- 20 58 FC 4C 85 03 
0378- D0 0B 20 DD FB 2ùû 
0380- A9 BA 4C At 03 08 


— Lignes 2 à 8: pour que les ins- 
tructions & arrivent bien sur notre 
routine, il faut mettre en place le vec- 
teur de l'&, c'est-à-dire donner à 
partir de l'adresse $3F5 un JMP à 
l'adresse voulue. Plutôt que d'utiliser 
des POKESs en Basic. nous confierons 
cette tâche aux toutes premières ins- 
tructions de la rout'ne assembleur 

On met tout d'abord #$4C (code de 
JMP} en $3F5 {lignes 2 et 3). L'as- 
sembleur LISA 1.5 utitisé ici offre en 
outre deux directives pour caïculer 
les poids faible et fort d'adresses 
symboliques dont on ne connaît pas 
forcément l'implantation exacte au 
moment de l'écriture du source, ou 
dont l'implantation peut être modi- 
fiée en fonction de l'évolution du 
source lors de sa mise au point. DEB 
étant l'étiquette qui marque le début 
de la routine de traitement, #DEB 
donnera le poids faible de son 
adresse calculée au moment de l'as- 
semblage et /DEB nous donnera son 
poids fort. Tous les assembleurs pro- 
posent de telles directives, avec des 
syntaxes légèrement différentes le cas 
échéant, mais que vous trouverez 
toujours dans la documentation de 
celui que vous utilisez (par exemple 
#< pour le poids faible et #> pour 
le poids fort en BIG MAC). 

On met donc le poids faible de 
l'adresse en $3F6 (lignes 4 et 5) et 
son poids fort en $3F7 (lignes 6 et 
7). En regardant la liste d'assem- 
blage. on constate que DEB corres- 
pond finalement à l'adresse $310 et 
que ce sont bien #$10 et #$03 qui 
sont stockés en $3F6 et $3F7 


On sort ensuite par RTS pour revenir 
au Basic. Si le code objet de ia rou- 
tine est sauvé sur disquette, la mise 
en place du vecteur & pourra se faire 
simplement par un BRUN du fichier 
concerné en début de programme 
Applesoft. L'ensemble du code sera 
ainsi chargé en mémoire mars l'exé- 
cution s'arrêtera au RTS de la ligne 
8, l'accès au reste de la routine. à 
partir de DEB, devant ultérieurement 
résulter de l'emploi de & (on aura en 
$3F5 : JMP $310 après le BRUN). Si 
vous rentrez ce code sans le sauver 
sur disquette, l'initialisation de & en 
début de programme pourra se faire 
au moyen de CALL 768. 


— Ligne 9: il est important de se 
rappeler ici que l'on arrive en DEB à 
l'issue de l'analyse d'un token. C’est 
donc le JMP $B1 de l'adresse 
$D83C, au sein de l'interpréteur. qui 
- nous amène en $310. De ce fait, 
l’'accumulateur contient déjà le carac- 
tère qui suit & dans le programme, 
caractère sur lequel pointe $B8-$B9, 
et les indicateurs du registre d'état 
sont positionnés en fonction de la 
nature du caractère lu par CHRGET. 
Le test BEQ sera donc positif si l’on 
a dans l'accumulateur un 0 ou un 
7”, ce qui marque la fin d'une ins- 
truction et la nécessité de ressortir de 
la routine. On reviendra alors en 
$D823. puis en $D7D2. et $B8-$B9 
pointant sur 0 ou ”:”, l'exécution du 
programme Applesoft se poursuivra 
sans problème. 


Lignes 10 à 17: #$BA est le token 
de PRINT et si l'accumulateur 
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JMP DEB 0338- CO FF DO 0B A0 1B 84 38 
JSR $R7 0390- A0 FD 84 39 20 EA 0: 28 
TSX 0398- 20 Bi 00 4C 10 02 20 E7 
INX 03A0- 00 BA E8 E8 94 4C 20 DS 
INX ———————————————————— 
TXS LOAD INI16.2,TEST 
JMP $D820 ILEST 
S PRINT CHR$ ‘4)"BRUN INII1é.2,0B8J" 
10 TEXT : & HOME : FOR I = 1 TO 10: & 
PRINT "ESREEERERERSEEREEREEREEREEER 
18 SD SYrxssEsRxxx#" : NEXT : UTAB 2: HTAB 
03 40 1: & PRINT "REECRITURE SUR CETTE 
ñ4 24 LIGNE" ; 
06 34 20 & PRINT : & PRINT “ENTREZ QUELQUE € 
FO 04 HOSE" 3: & INPUT " 7 "izæ:; & PRIN 
as 28 T "ENCORE EN ‘’GET‘"3;: & GET Y$: P 
03 4C RINT : & PRINT 2$,YS: & PRINT ;: 
& GET Z$ 
FB 2C 20 PCOKE 33,5: POKE 33,20: & HOME : UTAB 
C9? A0 20: HTAB 1: & LET "MESSAGE ERUYA 
10 A0 MTS se mA rss in Made etat tee eV LE sus 
10 F7 ."32: & GET 2%: PRINT : TEXT FOR 
A0 00 1 = 1 TO 10: PRINT "#RXX£SYEERNHEXX 
04 DO RREERRÉEREISÉSERERREÉEEREEEX" I NEXT 
DO 06 40 POKE 34,18: POKE 33,10: POKE 35,22: V 
TAB 19: & PRINT "AARARARAAAAARAR 
C7 AA ARABE AAA ARR AAARAARARARAR 
DD FE ARAAAARAAAA" : GET Zæ: & NEW : GET 
A4 76 25: & HOME 


contient #$BA nous sommes donc 
en train d'analyser une instruction 
&PRINT Dans ce cas, on sauve la 
position horizontale du curseur (sto- 
ckée en $24) en $6, on fait un saut à 
la routine du moniteur qui efface la 
fin de la ligne (JSR $FC9C, équiva- 
lent du CALL —868 que vous pou- 
vez faire en Basic). on rétablit ensuite 
la position du curseur en $24 et on 
passe finalement en MC. 

Nous reviendrons plus loin sur Le trai- 
tement réalisé en MO, mais on peut 
noter dès maintenant que l'exécution 
de &PRINT n'est pas complète à l'is- 
sue des lignes 10 à 17, puisque l'on 
a bien effacé la fin de la ligne mais 
encore rien affiché. Dans la mesure 
où ce serait perdre notre temps que 
de ré-écrire les routines de PRINT de 
l'Applesoft, tout le problème consis- 
tera, lorsque nous serons en MO, à 
faire en sorte que finterpréteur re- 
prenne la main et traite le PRINT 
comme un PRINT standard du Basic, 
sans générer de message d'erreur. 


—Lignes 18 à 27. #$84 est le token 
de INPUT et #$BE celui de GET, Si 
l'on recontre une instruction &INPUT 
ou &GET, le traitement consiste à 
changer le vecteur de la routine 
d'entrée de caractères utilisée par le 
système (l'adresse de cette routine 
est donnée en $38-$39). comme 
nous l'avons déjà fait souvent dans 
les exemples illustrant les articles 
d'initiation précédents. Le JSR $3EA 
{ou encore CALL 1002) permet de 
faire prendre en compte cette modifi- 
cation par le DOS. qui supervise les 
entrées - sorties lorsqu'il est chargé 
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Une fois le vecteur changé, on passe 
en MO. Là encore, le traitement réel 
de INPUT ou GET reste à faire, et 
nous en laisserons le soin à FApple- 
soft. 


— Lignes 28 à 35 : il s’agit de la rou- 
tne d'entrée que nous voulons faire 
utiliser par le Basic dans ses INPUT 
et GET. Elle est particulièrement sim- 
ple et vous n'aurez aucune peine à 
l'analyser. 


— Lignes 36 à 51: #$97 est le 
token de HOME. On empile les va- 
leurs des limites de fenêtre, stockées 
aux adresses $20 à $23 (lignes 38 à 
42). JSR $FB39 réalise le même trai- 
tement que l'instruction TEXT et JSR 
$FC58 réalise l'effacement de tout 
l'écran, puisque TEXT remet les limi- 
tes de fenêtre à leurs valeurs maxi- 
males. On récupère ensuite les limi- 
tes de fenêtre dans la pile (lignes 45 
à 50) et on saute en S6. 

Notez que, cette fois-ci, le traitement 
de l'instruction est terminé et on de- 
vrait donc pouvoir passer à l’instruc- 
tion suivante du programme. 


— Lignes 52 à 55: #$BF est le 
token de NEW. On exécute un sim- 
pk HOME standard (JSR $FC58) et, 
là encore, on doit passer à l'instruc- 
tion suivante. 


— Lignes 56 à 61: #$AA est le 
token de LET. On fait deux appels 
consécutifs à $FBDD (émission d'un 
beep} puis on charge l'accumulateur 
avec le token de PRINT car il fau- 
drait maintenant faire afficher le mes- 
sage par l'Applesoft, c'est-à-dire le 
tromper sur la nature de l'instruction 
et lui laisser finir le travail. 


— Lignes 62 à 73: c'est là que l'on 
arrive pour les instructions & dont le 
traitement est achevé par notre seule 
routine. Petite complication intermé- 
diaire : remettre la routine d'entrée 
standard ($FD1B) en $38-$39 si l'on 
est en mode immédiat (signalé par 
un #$FF à l'adresse $76). Ainsi, lors- 
que le programme Applesoft est ter- 
miné, vous pourrez taper par exem- 
ple &HOME en mode immédiat pour 
rétablir la routine d'entrée standard 
et recouvrer l'usage normal des ca- 
ractères de contrôle. 

Si l'on est toujours en mode pro- 
gramme, par contre, il faut passer à 
l'instruction suivante. Pour ce faire, 
on lit le caractère suivant (JSR $B1) 
et on saute en DEB. Si la syntaxe est 
correcte, on doit avoir alors dans 
l'accumulateur un 0 ou un ”:” et le 
test BEQ de DEB nous ramènera fi- 
nalement en $D7D2 où l'exécution 
du programme se poursuivra correc- 
tement. 


— Lignes 74 à 79 : on arrive en MO 
dans le cas des instructions &PRINT, 
&INPUT ou &GET. Le JSR $B7 


permet de remettre dans l'accumula- 
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teur, qui à pu être modifié plus haut, 
le token de PRINT, INPUT ou GET, 
puisque l'on relit l'adresse pointée 
par $B8-$B9, mais sans modifier ce 
pointeur. 

On arrive en M1 dans le cas de 
&LET. Cette fois, on ne relit pas le 
token. car il faut au contraire le faire 
passer pour un PRINT, dont on a 
chargé le token dans l'accumulateur. 
Il convient maintenant de rappeler 
que nous sommes arrivés en DEB à 
l'issue du JMP $B1 de fadresse 
$D83C et que nous restons donc 
sous le contrôle du JSR $D828 dont 
l'adresse de retour occupe le sommet 
de la pile. Nous voulons faire repren- 
dre l'exécution de PRINT, INPUT ou 
GET par l'Applesoft, comme s'il 
s’agssait d'instructions normales” 
saisies par l’interpréteur dans le pro- 
gramme. L'idéal serait donc de venir 
se brancher en $D820, puisque c'est 
là que commence dans l'interpréteur 
l'analyse d'un token qu'il vient de 
lire et de charger dans l'accumulateur 
par le JSR $B1 de l'adresse $D81D. 
Pour que tout se passe bien par la 
suite, il faut donc effacer la trace du 
JSR $D828 dont nous ne pouvons 
revenir par RTS (sinon, le token 
n'est pas interprété, $B8-$B9 ne 
pointe pas sur O ou ”:” et le résultat 
final est SYNTAX ERROR) et que 
nous ne pouvons pas davantage lais- 
ser au sommet de la pile avant de 
sauter en $D820 (sinon, la présence 
d'une adresse de retour excédentaire 
dans la pile finit par provoquer un 
mauvais branchement en retour de 
routine). C’est pourquoi on remonte 
le sommet de la pile de deux posi- 
tions (TSX - INX - INX - TXS), afin 
de réaliser l'équivalent d'un POP et 
de faire ”’sauter” l'adresse de retour 
du JSR $D828 à l'extérieur de la 
pile. On peut alors retourner sans ris- 
que à l'interpréteur en $D820 et lui 
laisser terminer le travail. 


Lorsque vous aurez saisi et sauvé 
cette routine de traitement d'instruc- 
tions &, le programme de démons- 
tration qui l'accompagne vous per- 
mettra d'en tester le fonctionnement. 


Manipulation de 
CHRGET 


L'appel de routines machine par & 
passe par l'interpréteur de l'Applesoft 
et comporte certaines contraintes: 
mise en place du vecteur en $3F5, 
respect du contrôle exercé par l'inter- 
préteur sur l’analyse des instructions, 
nécessité, en cas de modification du 
traitement réalisé par certaines ins- 
tructions du Basic, de modifier les 
programmes existants {remplacer 
ainsi les PRINT par des &PRINT. ) 

Ï est possible de procéder autrement. 
et de prendre même le pas sur l'in- 
terpréteur, en exploitant le fait que la 
routine d’acquisitionn des caractères 


du programme Applesoft, CHRGET 
($B1), se trouve en RAM et peut 
donc subir une modification de la 
part du programmeur. Après avoir 
chargé le caractère pointé par $B8- 
$B9 dans l’accumulateur en $B7, et 
plutôt que de retourner de suite à 
l'interpréteur, il faut alors placer un 
sut dans une routine ”’personnelle”, 
une sorte de mini-interpréteur, qui 
traitera nos instructions en priorité et 
en exclusivité. 


La liste ci-dessous donne un exemple 
de CHRGET modifié: en $BA est 
implanté un JMP $300, et en $300 
devra commencer notre mini-inter- 
préteur. Nous verrons qu'il faut veil- 
ler dans cette routine à respecter le 
traitement normal de CHRGET pour 
les caractères qui ne nous concernent 
pas {comparaison à #$3A, soustrac- 
tions de #$30 et #$D0...} afin de ne 
pas perturber l’'Applesoft. 


00681- Eé BG INC  3B8 

0083-  D0 02 gNE 30087 

008S- Eé B9 INC #89 

G087- AD 05 02 LDA +0205 

d08A- 4C 00 03 1e 0300 
ap- 04 as 

Q08E- c9 20 CMP ##20 

00C0- Fa EF gea +008! 

00c2- 38 SEC 

00C3- €? 30 EL #s30 

o0c5- 38 

00Cé- €? 00 sec #00 

00c8- 40 RTS 

aocy- 80 222 

gocA-  4F ra 

ooce- C7 P?r 

GOCC- s2 277 

00c0- 00 BRK 

00CE- 00 BRK 

00CF- 00 BRK 


Pour mettre en place ce JMP, il est 
exclu d'utiliser des POKESs à partir du 
Basic : les POKESs sont en effet inter- 
prétés, bien sûr, et lus en mémoire 
par des appels à $B1. Si vous modi- 
fiez par POKESs la routine qui est en 
train de lire ces mêmes POKESs, il est 
évident que vous n'arriverez jamais 
au bout | 

Vous disposez en fait de trois solu- 

tions: 

e En mode immédiat, mettre le saut 
en place à partir du moniteur en 
tapant par exemple BA: 4C 00 
03. Cette solution n'est à retenir 
que pour un premier test. 

e Après avoir rentré le saut sous 
moniteur, sauver les codes corres- 
pondants dans un fichier par 
BSAVE Fichier, A$BA. L3. Vous 
pourrez alors le récupérer simple- 
ment au début de vos program- 
mes Applesoft par BLOAD Fichier. 
Pour revenir facilement au Basic 
standard, il est alors pratique de 
disposer d'un second fichier, 
sauvé de la même façon, mais 
contenant les 3 codes du 
CHRGET ”’normal”. 

e Utiliser une petite routine ma- 
chine, chargée et exécutée en 
début de programme, pour mettre 
les codes en place (le source 
d'une telle routine serait par 
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exemple : LDA #$4C - STA $BA 
- LDA #9$00 - STA $BB - LDA 
#$03 - STA $BC - RTS). Cette 
méthode est moins pratique que la 
précédente, mais elle sera inévita- 
ble si vous travaillez sous ProDos, 
qui ne prend pas en compte le 


chargement d'un fichier directe- 
ment dans CHRGET. 


Exemple d'application 


Nous reprendrons exactement le 
même problème que celui traité plus 
haut au moyen de &. Ceite fois, 
l'appel de routines se fera par un 
JMP $300 implanté en $BA. Il n'est 
pas nécessaire de modifier la syntaxe 
des instructions Applesoft concernées 
{nous interpréterons les PRINT, GET 
et autres avant même que l'Applesoft 
ne le fasse). 


Voyons maintenant quelles sont les 
différences entre cette nouvelle rou- 
tine d'interprétation des instructions 
et la précédente. 


— Ligne 9 (PRINT) : i n'y aura plus 
de JSR $B7 en fin de routine et on 
recharge directement l’accumulateur 
avec le token de PRINT 


— Lignes 15 et 21 (INPUT et GET). 
même chose que ci-dessus. On em- 
pile le token de l'instruction avant de 
modifier À et on le dépile avant de 
passer à la fin de la routine. 


— Ligne 46 (HOME) : le traitement 
de l'instruction est assuré totalement 
par notre routine et termirié lorsque 
l'on arrive à cette ligne 46 Il s’agit 
donc cette fois de passer à l'instruc- 
tion suivante et d'acquérir ie carac- 
tère qui suit te token de HOME dans 
le programme (normalement O0 ou 
”. Nous sommes toujours sous le 
contrôle du JSR $B1 de l'adresse 
$D81D, dont l'adresse de retour est 
au sommet de la pile. Par JMP $B1 
(et non JSR $B1} on lit le caractère 
suivant en mettant à jour le pointeur 
de programme et, au prochain RTS, 
on revient en $D820. Comme A 
contient normalement O ou ‘”:”. on 
ressort de $D828 par le BEQ $D857 
et on passe à l'instruction suivante 
(JMP $D7D2) en pointant sur un ca- 
ractêre valide. 


— Ligne 50 (NEW): même proces- 
sus que ci-dessus. 


— Lignes 56 à 72 (sortie après inter- 
prétation de nos instructions, ou sor- 
tie directe si le caractère ne nous 
concerne pas]. Pour que tout se 
passe bien, il faut effectuer les 
mêmes traitements que le CHRGET 
normal” dans sa partie $BA à $C8. 
À partr de $BE, CHRGET n'est plus 
affecté par la modification des codes 
et l'on pourra donc le réutiliser tel 
quel. 

ll nous manque donc le CMP #$3A 
et le branchement alternatif BCS qui 
en résulte, que nous remettons aux 


lignes 56 et 57. Si le test BCS est 
positif, on doit quitter la routine sans 
autres manipulations de À ou du re- 
gistre d'état mais il nous faut malgré 
tout rétablir la routine d'entrée stan- 
dard en $38-$39 si l'on est en mode 
immédiat (registre d'état et accumu- 
lateur sont alors empilés avant modi- 
fication et dépilés avant RTS). Dans 
le cas de BCS A0, le RTS de la ligne 
72 nous renvoie en $D820. 

Si le test BCS échoue, il faut en re- 
vanche poursuivre les manipulations, 
ce que nous ferons, après rétablisse- 
ment éventuel de la routine d'entrée, 
par un JMP $BE. Dans ce cas, c'est 
le RTS de l'adresse $C8 qui nous ra- 
mènera en $D820. 


Notez bien ce qui se passe dans ce 
système lorsqu'on utilise un token 
pour réaliser un traitement prépara- 
toire (PRINT, GET, INPUT ou LET) 
et que l'exécution de la routine du 
token est laissée à l'Applesoft lui- 
même. Le traitement préparatoire est 
cette fois-ci réalisé avant que ne 
commence l'interprétation du token 
par le Basic (‘’entre” les adresses 
$D81D et $D820) et l'on rend en- 
suite la main à l'interpréteur comme 
s'il ne s'était rien passé (l'accumula- 
teur contient le token, sur lequel 
pointe $B8-$B9 et les indicateurs du 
registre d'état sont positionnés en 
conséquence). Îl n'est donc plus né- 
cessaire de gérer la pile pour tromper 
l'interpréteur sur le point auquel il est 
païvenu dans son analyse. 


Vous trouverez ci-après un petit pro- 
gramme de démonstration, compara- 
ble à celui utihisé avec &. Il est écrit 
avec des instructions Applesoft tout à 
fait banales, et vous pourrez donc 
l'exécuter sous contrôle du CHRGET 
normal ou sous contrôle du 
CHRGET modifié. Ne soyez pas sur- 
pris toutefois si, dans la première hy- 
pothèse. le résultat obtenu n'est pas 
tout à fait conforme aux espéran- 
ces. 





Version chraet : lisa 1.5 


0300 1 ORG 5300 
0300 C98A 2 CMP 4884 
0302 0010 3 BNE SO 

0304 A424 4 LDY s24 
0304 8406 S STY #4 

0308 209CFC é JSR $FC9C 
0308 4406 7 LOY #6 

030D 68424 g STY 524 
030F A9BA e LOA NS$SBA 
0311 407403 to JMP S6 

0314 C984 11 S0 CMP NS$84 
0316 F004 12 8EQ S1 

0318 C9BE 13 CMP N8BE 
0314 DG2t 14 BNE 83 

031C 48 15 Si PHA 

0310 A92C lé LOA HENTREE 
031F 8538 17 STA $38 
0321 A903 18 EDA /ENTREE 
0323 8539 19 STA 539 
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0325 20£A03 20 JSR $3EA 


0328 68 21 PLA 

0329 4Cc7403 22 JMP Sé 
032C ADO0C0 23 ENTREE LDA $C000 
032F 10F6 24 BPL ENTREE 
0331 2C10C0 25 SIT $C010 
0334 C9680 26 CP #58 
0334 F004 27 8ea S2 
0336 C?40 28 CMP àSA0 
0334 90F0 29 BCC ENTREE 
033€ 60 30 S2 RTS 

0330 C997 31 S3 CMP #897 
033F 0010 32 BNE S4 
0341 À003 33 LDY #3 
0343 692000 34 BC LOS 520,Y 
0346 48 35 PHA 

0347 688 36 DEY 

0348 :0F9 37 8PL BO 
0344 2039F8 38 JSR %F839 
0340 20568FC 397 JSR SFCS8 
0350 A000 40 LOY #0 
0352 68 41 Bi PLA 

0353 992000 42 STA $20,Y 
0356 c8 43 ° INY 

0357 C004 44 CPY #4 
0359 DCOF7 45 BNE 81 
035B 4C68100 as JMP #61 
03SE C98F 47 Sa CMP HSBF 
0360 DO0é6 a8 GBNE SS 
0362 2058FC a JSR 5FC58 
0365 4CB100 950 JMP +B1 
0368 C7AR S1 SS CMP #$5AQ 
0364 D008 52 BNE Sé 
036C 2000F8 53 JSR $F800 
034F 20D00F8 54 JSR $F6800 
0372 A9SBA 55 LDA #$8A 
0374 C93A Sé Sé CMP #83À 
0376 6006 S7 BCS A0 
0378 207E03 58 JSR AG 
0376 4CBE00 59 JP $BE 
037E 08 é0 A0 PHP 

037F A47é6 éi LOY 576 
0381 CoFF 2 CPY 4S8FF 
0383 D000 63 BNE A! 
0385 A016 64 LDY #51B 
0387 8438 65 STY 538 
0389 A0OFD 66 LOY #$F0 
03686 8439 67 STY #39 
038D 48 68 PHA 

038€ 20EA03 69 JSR $3EA 
0391 68 70 PLA 

0392 28 71 À! PLP 

0393 60 72 A2 RTS 
#300.393 


0300- C9 BA DO 10 A4 24 84 06 
0308- 20 9C FC A4 06 84 24 A9 
0310- BA 4C 74 03 C9 64 FO 04 
0318- C9 8E 80 21 48 A9 2C 85 
0320- 38 47 03 &8S 39 20 EA 03 
0328- 68 4C 74 03 AD 00 C@ 10 
0330- F8 2C 10 E0 Cv 80 F0 04 
0338- C9 A0 98 FO 60 C9 97 DO 
0340- 10 A0 03 89 20 00 48 88 
0348- 10 F9 20 39 FB 20 58 FC 
0350- A0 00 68 99 20 00 C8 C0 
0358- 04 00 F7 4C Bi 00 C9 6F 
0360- D0 06 20 S8 FC 4C 81 00 
0368- C9 44 DO 08 20 DD FB 20 
0370- DD FB A9 BA C9 3A 80 06 
0378- 20 7E 03 4C 8E 00 08 À4Q 
0380- 76 CO FF DO 00 A0 18 84 
0388- 38 A0 FD 84 39 48 20 EA 
0390- 03 58 28 60 





ILIST:INI16.1.FEST 


10 TEXT : HOME : FOR 1 = 1 TO 10: PRINT 
MELLLLLEEL ELLE EELLELLELELEELELZ LEE] 
222292: NOT : VTAS 2: HTAB 1: PR 
INT *RÉECRITURE SUR CETTE LIGNE"* ; 

20 PRINT : PRINT ENTREZ QUELQJE CHOSE") 





t INPUT * ? °i2#: PRINT "ENCORE EN 
“GET’'";: GET Y#: PRINIF : PRIT 2% 
1Y$3 PRINT ;: GET ?s 

30 POKE 34,5: POKE 33,20: HOME : UTAB 20 


1 HTAB 1: LEFT "MESSAGE BRUYANT.... 


ET 29%: PRINT : TEXT : FOR I = 1 TO 
10: PRINT "ranrssssunsensuuesuuss 
vessvssesecsessss.: NEXT 

40 POKE 34,18: POKE 33,10: POKE 35,22: V 
TAB 19: PRINT "ARAAAARAAAAARARAAAAA 


AARRAAA "à 
ÔME 


GET 2Z$: NEW : GET 29: H 
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Personnalisez vos disquettes Macintosh 


Nous ne vous apprendrons rien en 
vous disant que, à chaque fois que 
l'on introduit une disquette d’amor- 
çage pour initialiser le Macintosh, on 
obtient à l'écran l'affichage tempo- 
raire d’un dessin. La plupart du 
temps, ce dessin est limité au simple 
message ‘Bienvenue.”, accompagné 
d'un icône représentant le Mac. En 
fait. tout un chacun peut rerr.placer 
cela par une image personnelle, à 
condition de disposer des logiciels 
"Macpaint” et "MS Basic”. S'il n’est 
pas nécessaire de comprendre le 
fonctionnement du système pour uti- 
liser le programme que nous vous 
proposons ici, il nous semble impor- 
tant de vous donner quelques expli- 
cations, ne serait-ce que pour vous 
permettre d'adapter le principe à 
d'autres applications. 


Structure d’un document 
"Macpaint” 


Le plus grand document Macpaint 
que l’on puisse obtenir correspond. à 
peu de choses près, à une feuille de 
papier format A4 Un rapide calcul 
nous permet de savoir que ce docu- 
ment est constitué par 720 lignes de 
576 points (soit 72 octets par ligne). 
Si l’image était sauvegardée sur la 
disquette sans modification, cela 
nous donnerait un fichier de 576 / 8 
+ 720 = 51840 octets. ce qui n'ar- 
rive jamais. Donc, l’image est codée. 
Après de nombreux essais et compri- 
més contre les maux de téte. nous 
avons réussi à déterrniner la nature 
exacte d'un tel fichier. 


Bloc de tête 


Chaque fichier commence par un 
bloc de 512 octets qui na pas de 
rapport direct avec l'image : 

e Les quatre premiers octets indi- 


quent si les motifs standards 
placés au bas de l'écran Macpaint 


ont été  redéfinis ou non 
$00000000 = motifs standards: 
$00000002 = un ou plusieurs 


motifs redéfinis par l'utilisateur. 

e Les trois cent quatre octets sui- 
vants constituent la définition des 
motifs (8 octets sont nécessaires à 
la représentation d'un motif - voir 
"Les routines en ROM du Macin- 
tosh”. Pom's 15 - et Macpaint affi- 
che 38 motifs). 

e Les deux cent quatre octets res- 
tants ne semblent pas être signi- 
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fiants puisqu'ils sont toujours à 
zéro, quel que soit le type ou la 
dimension du dessin. Cette zone 
est peut-être réservée pour une 
extension future du logiciel 


Codage des images 


Nous arrivons dans la parte qui nous 
a donné le plus de travail puisque, 
pour trouver une constante suscepti- 
ble de nous placer sur la bonne voie, 
nous avons dû réaliser un grand 
nombre de dessins “structurés”, qu'il 
fallait ensuite “lire” octet par octet à 
partir du Basic. Nous vous livrons ici 
le résultat de cette longue recherche 


Dans tous les cas. même pour un 
très petit dessin, la totalité du docu- 
ment Macpaint est sauvegardée, ceci 
explique le fait qu'un document ab- 
solument vide occupe 2ko (soit qua- 
tre secteurs) sur la disquette lorsqu'il 
est sauvegardé 


Chaque ligne de points (constituée, 
comme nous l'avons vu précédem- 
ment, par 72 octets) est codée indé- 
pendamment des autres de la ma- 
nière suivante 


Si des octets identiques sont juxtapo- 
sés. nous trouvons dans le fichier 
codé un octet contenant le nombre 
d'octets identiques moins un, avec 
son bit de poids fort {bit 7 ou “bit de 
signe”) positionné à 1 Cet ‘octet 
compteur” est lui même suivi par la 
valeur de l’octet trouvé de façon ré- 
pétitive. Ainsi, pour une ligne totale- 
ment vide (tous les octets à zéro), 
nous trouvons $C7 et $00 (199 et 
0). Ceci correspond parfaitement à 
notre explication préalable. puisque 
199 — 128 (valeur du bit 7) + 1l est 
égal à 72 

Dans le cas contraire, c'est à dire si 
des octets différents les uns des 
autres se suivent, l'octet compteur 
contient aussi le nombre d'octets 
moins un mais, cette fois, avec son 
bit de signe à 0. Cela permettra à la 
routine de décodage de déterminer si 
elle a affaire à des octets différents 
ou identiques. Puisque, dans le cas 
présent, nous avons des octets diffé- 
rents, l'octet utilisé comme compteur 
sera suivi par les N octets concernés. 
Si. avant codage, nous avons la suite 
d'octets. $FF. $FE. $AO, $10. la sec- 
tion correspondante dans le fichier 
codé sera : $03 (quatre octets moins 
un), $FF, $FE. $AO et $10. Les deux 
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possibilités peuvent, bien sûr, être 
combinées plusieurs fois pour une 
seule ligne de 572 points. On peut 
constater que cette méthode de co- 
dage est surtout rentable lorsque le 
nombre d'octets identiques est im- 
portant. En effet, si l'on prend le cas 
extrême où l'on aurait, pour la tota- 
lité du document, uniquement des 
séquences de deux octets identiques, 
mais différents des deux octets précé- 
dents et suivants, l'image codée 
prendrait cinquante pour cent de 
plus de place que si elle n'était pas 
codée. 


Pour conclure ce paragraphe, nous 
vous proposons un schéma représen- 
tant une ligne. une fois son codage 
effectué : 


| 16 octets à $FF 
($6F-143 143-126+1-16) 


4 octets différents 
(3+1} 











| 52 octets à 0 
(583=:179 179-128+1-52) 


Constitution d’un fichier 
Startup” 


Pour qu'un fichier soit reconnu par le 
système comme étant l'image à affi- 
cher lors de l'amorçage. il doit : 


e être de même nature qu'un docu- 
ment Macpaint avant codage: 

e être baptisé du doux nom de 
"Startupscreen”’. 


Le programme Basic accompagnant 
cet article décode le document Mac- 
paint de votre choix, ce qui ne pose 
pas de problème puisque nous avons 
maintenant tous les éléments. et en 
fait un fichier que l'on peut considé- 
rer comme étant une ‘image mé- 
moire” du document original. L'affi. 
chage du Macintosh étant constitué 
par 512 lignes de 342 points. seule 
la surface correspondante placée 
dans l'angle supérieur gauche du do- 
cument à transformer est prise en 
compte. 


M SE 
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10’ Conversion de fichiers MacPaint en 
fichiers "Startupscreen. 

204 

30 BEFINT A-Y'OPTION BASE I:DIM A(36): 
ON ERROR GOTO 290 

40 CLS:CALL TEXTFONT(O) 

50 PRINT”Ce programme transforme un document 
MacPaint” 

60 PRINT'"en un fichier Startupscreen” 

70 PRINT'La partie supérieure gauche du document 
est utilisée” 

80 PRINT"(342 lignes * 512 colonnes)" PRINT 

90 PRINT'ATTENTION : si un fichiers Startupscreen 
se trouve sur la” 

100 PRINT "disquette placée dans le lecteur 

interne, il sera détruit." PRINT 
110 INPUT ‘Fichier MacPaint à convertir 7 ",Z7$. 


OPEN"i",1,Z$ 
120 OPEN'"o",2,'startupscreen” 
130 L=342 
140 M=32 


150 PRINT'"Conversion en cours...” 

160 Z$=INPUT$(S12,1) 

170 FOR 1=1 TOL:FORJ=I TO MA(J)=O:NEXT:X=0 
180 NO=ASC(INPUT$(1,1))1F NO<185 THEN O=NOr I: 


GOTO 230 ELSE 0=2S6-N0*+ |: 
C=ASC(INPUT$(1,1)) 

190 FOR J=1 TO O:IF (J+X+1 ) MOD 2 THEN 
A((J+X+1)\2}= A((J+X+1)\2) OR C:GOTO 220 

200 CI=C*2S6:1F Cb32767 THEN CI-CI-655S36l 

210 H=CrA((J+X+1)\2)=A((J+X+1)\2) OR H 

220 NEXT:X=X+0:GOTO 270 

230 FOR J=1 TO O:X=X+1:C=ASC(INPUTS$(i,1)): 
IF (X+1) MOB 2 THEN A((X+1)\2)=A((X+1)\2) OR 
C:GOTO 260 

240 CI-CX2S6:1F C32767 THEN CI=CI-6SS361 

250 H=CIA((X+1)\2)=A((X+1)\2) OR H 

260 NEXT 

270 IF X<72 THEN 180 

280 FOR J=I TOM 
PRINT #2, CHR$(A(J)\2S6):CHR$(A(J) AND 
&HFF};:NEXT:NEXT:CLOSE:PRINT"Conversion 
effectuée ":GOTO 300 

290 CLOSE:END:1F ERL=280 THEN PRINT'La 
disquette est saturée l"RESUME 300 ELSE IF 
ERL=1 10 THEN RESUME 110 ELSE RESUME 120 

300 PRINT'Autre fichier à convertir ? (O/N) 

310 Z$-INKEYS:IF 2$="" THEN 310 ELSE IF 2$="O" OR 
2$="0o" THEN 40 ELSE IF Z$="N" OR Z$="n" THEN 
END ELSE 310 


La réalisation d'un fichier ‘’Startups- 
creen” par le programme ici proposé 
demande environ huit minutes, mais 
son affichage au moment de l'amor- 
çage est instantané. Désormais. lors- 


Choisissez vos caractères 


Lorsque l’on édite un programme 
Basic, la taille et le type des caractè- 
res qui apparaissent dans les fenêtres 
°List’” et Command” sont imposés 
(New York 12 poims avec la pre- 
mière version du dossier système, et 
Geneve 12 points avec la version ac- 
tuelle). Il est possible de changer cela 
en ‘POKant” le code de la police 
voulue à l'adresse $985, et la taille à 
l'adresse $987. 


POKE &H985,4: POKE &H987,9 
nous fait passer en Monaco 9 points. 
ce qu permet de visualiser beaucoup 
plus de texte en une seule fois. La 
taille des caractères situés dans les 
menus est aussi modifiée, mais ce 
n'est pas un problème puisque, lors- 
que l'on programme. l'efficacité est 
plus importante que l'apparence de 
l'écran. a 


D’Applesoft à Microsoft 


Lorsque l’on passe de l'Apple Il au 
Macintosh, on peut être confronté à 


que vous enverrez une disquette à 
un correspondant, celui-ci saura d’où 
elle vient. même si vous avez omis 
de joindre vos coordonnées. De plus, 
ce petit programme prouve qu'il 


des “bugs” difficilement repérables, 
dûs à quelques différences entre les 
Basics utilisés. 


Les opérateurs logiques ne fonction- 
nent pas de la même façon. Ainsi : 


100 IF NOT A% THEN PRINT 
“NON”: 

GOTO 120 

110 PRINT ”’OU/” 


provoque, avec le Basic Applesoft, 
l'affichage de OUI” si là variable 
A% est égale à 0, "NON” si AX'est 
égale à 1 (ou, tout simplement, diffé- 
rente de (0). 

En Basic Microsoft, le texte affiché 
sera ‘ NON”, que la variable A soit 
égale à 1 ou 0. 

Cela est dû au fait que le Basic Ap- 
plesoft réalise seulement un test logi- 
que, alors que le Basic Microsoft ef- 
fectue une véritable opération 
logique. NOT O0 est égal à —1 (diffé- 
rent de 0 donc vrai), NOT 1 est égal 
à —2 (idem). Le Basic Microsoft aff- 
chera NON” uniquement si AX est 
égale à —1 (NOT -1 est égal à O0). 
Le NOT étant souvent utilisé pour 


n'est pas nécessaire d'avoir le statut 
de ‘développeur de logiciels” pour 
personnaliser des disquettes. 


tester l'état d’un drapeau. il vaut 
mieux positionner celui-ci à O0 ou —1. 
plutét qu'à 1 ou 0. 


En Basic Applesoft, les boucles FOR 
- NEXT sont toujours exécutées au 
moins une fois, alors qu'avec le Basic 
Microsoft une boucle du type : 


FOR 1=0 TO 1 STEP —1:NEXT 
ou encore : 
FOR 1=1 TO O:NEXT 


ne sera pas exécutée (passage immé- 
diat à l'instruction suivante). 


L'instruction STR$(X) du Basic Mi- 
crosoft ajoute un espace au début de 
la chaîne résultante si le contenu de 
la variable X est positif: FICHIER” 
+ STR$(1) donne la chaîne ‘FI- 
CHIER 1”. Ce n'est pas le cas avec 
le Basic Applesoft, où la même ins- 
truction retourne la chaîne ‘Fl- 


CHIER!”. 


Si vous trouvez d’autres différences. 
n'oubliez pas de nous en faire part... 
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Call :un exemple 


Le Basic Microsoft autorise l'appel de 
routines en langage machine. ce qui 
est la moindre des choses. avec l'ins- 
truction CALEL. Cependant. la docu- 
mentation foumie avec le logiciel 
n'est pas très claire sur ce point et un 
petit complément d'informations ne 
nous semble pas superflu 


Pour illustrer le fonctionnement de 
cette instruction. nous avons écrit 
une courte routine qui effectue le 
transfert du contenu d'un tableau de 
variables entières à deux dimensions. 
vers un tableau de variables à une 
dimension. Cette routine permet de 
combler en partie un défaut de l'ins- 
truction PUT. qui n'accepte pas les 
indices: PUT(10.10).A(B.C) provo- 
que une ‘SYNTAX ERROR”. Ce 
nest pas vraiment gênant lorsque 
l'on a seulement deux ou trois PÜUT 
à exécuter mais. si l'on doit réaliser 
une animation qui nécessite 32 de 
ces instructions. la mémoire peut être 
très rapidement saturée. !] serait à la 
fois plus agréable et plus efficace 
d'écrire une boucle du type : 


100 FOR 1%::0 TO 31 
110 PUT(10.10).A%{1%.0) 
120 NEXT 

plutôt que : 

100 PUT(10.10).A0% 

110 PUT(10.10).A1% 

120 PUT(10.10).A2% 
etc. 


Pour comprendre parfaitement le 
fonctionnement de la routine. il est 
indispensable de connaître la struc- 
ture des tableaux de variables entiè- 
res: nous allons donc commencer par 
là 


Structure des tableaux 


L'instruction VARPTR(X} retourne 
l'adresse en mémoire de la variable 
X (uniquement avec des variables 
numériques: le système diffère sensi- 
blement pour jes variables alphanu- 
mériques) De même. l'instruction 
VARPTR(V%(0)) retourne l'adresse 
du premier élément (variable en- 
üière : 2 octets) constituant le tableau 
V%H{X)}. On peut noter au passage 
que, si un tableau V%{X} a été préa- 
lablement défini avec DIM. une va- 
riable V% est considérée par l'inter- 
préteur comme totalement 
indépendante du tableau précité 


Au dessus de l'adresse du premier 
élément (soit en allant vers les adres- 
ses les plus basses). nous trouvons 
les arguments du tableau, Si l'on part 
de l'adresse contenant le premier 
octet de ce descripteur . nous trou- 
vons . 
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e Le nombre d'octets par éléments 
(8 — double précision. 4 = simple 
précision et 2 = entier). 

e Les codes ASCI! des deux pre- 
miers caractères constituant le 
nom du tableau Si le nom est 
formé par un seul caractère. le se- 
cond octet est nul 

e Le nombre de caractères consti- 
tuant le nom du tableau moins 
Ceux Pour un nom formé de 
moins de trois caractères. cet octet 
est nul 

e Les codes ASCIH des caractères du 
nom (au delà du second carac- 
tère), avec le bit de signe posi 
tionné à 1 ($CI. soit 193. pour un 
A” dont le code ASC est nor 
malement 65) Pour un nom dont 
le nombre de caractères est infé- 
rieur ou égal à deux. cette zone 
n'apparaît pas 

e Une valeur sur 24 bits (3 octets) 
représentant la position relative 
(par rapport à l'adresse courante) 
de la prochaine définition de ta- 
bleau ou variable 

e Un octet contenant le nombre de 
dimensions du tableau 

e Deux octets indiquant le nombre 
d'éléments par dimension, répétés 
autant de fois que nécessaire. On 
trouve ces valeurs dans l'ordre in- 
verse de la définition du tableau 
par DIM Ainsi pour A(3.10). 
nous trouvons $00 $0B 500 $04 
pour OPTION BASE O0. et $00 
$0A $00 $03 pour OPTION 
BASE 1 On constate donc que la 
seule différence entre OPTION 
BASE 1 et OPTION BASE 0 se 
trouve dans la définition du nom- 
bre d'éléments 


Si l'on prend des exemples concrets. 
pour ABCD°(10) nous trouvons 
dans la table des arguments (OP- 
TION BASE O)}: 


$02 : nombre d'octets par éléments 
$41 542 $02 $C3 $C4: nom du ta- 
bleau: 

$00 $00 $5C : position relative de la 
prochaine définition de variable ou 
tableau. 

$01 : nombre de dimensions. 

$00 $0B : rombre d'éléments 

$XX $SXX. premier élément du ta- 
bleau. dont l'adresse est retournée 
par VARPTR(A‘%,(0)) 


Pour AB#(2.3.4). 
(OPTION BASE 1} 


$08 : nombre d'octets par éléments. 
$41 $42 $00 : nom du tableau 

$00 $00 $C7 : adresse relative: 

$03 : nombre de dimensions 

$00 $04: nombre d'éléments pour 
la troisième dimension 


nous trouvons 


d'application 
Marianne Sutz 


$00 $03 : nombre d'éléments pour 
la seconde dimension 

$00 $02: nombre d'éléments pour 
la première dimension 

XX FXX FXX FXX FXX EXX FXX 
$XX: premier élément de la pre- 
mière dimension 


Position des éléments dans un 
tableau 


Pour un tableau à une dimension. il 
n'y a aucun problème puisque les 
éléments sont placés les uns après les 
autres en mémoire. Ainsi, pour un 
tableau de vanables en simple préci- 
sion. et si X représente l'adresse du 
premier élément. le second élément 
se trouve en X+4. le troisième en 
X+8. etc 


Pour un tableau à deux dimensions 
(A(3.8) par exemple), les choses se 
compliquent un peu puisque lon v 
trouve (la première colonne de chif 
fres représente la première dimen- 
sion) 


© BR ON = BC Nr 
L . Û ü ’ « 
NDNNN=æ=—r- — 


tc 


Ceci explique la position triversée des 
indicateurs d'octets par éléments 


Fonctionnement de 


CALL 


L'instruction CALL peut être consi 
dérée comme une interface entre 
l'interpréteur Basic et le langage ma- 
chine. Elle permet l'appel d'une rou 
tine et le retour au programme Basic 
(si tout se passe bien !}. I n'est pas 
possible. comme avec le Basic Ap- 
pleSoft de l'Apple Il. d'appeler une 
routine avec un ‘CALL adresse de la 
routine”. Îl faut obligatoirement que 
l'adresse se trouve dans une variable 
Cette variable doit être de type sim 
ple ou double précision car les adres- 
ses peuvent être supéneure à 65535 
(le microprocesseur MC 68000 L8 
peut adresser 16777216 octets direc- 
tement) De manière générale. et 
dans ce cas. il vaut mieux sen tenir 
aux variables en simple précision 
puisque les variables en double pré- 
cision occupent deux fois plus de 
place en mémoire. pour le même ré- 
sultat 


TRES IMPORTANT il ne faut 
jamais utiliser une variable numéri- 
que qui ne fait pas partie d'un ta- 
bleau. si elle n'a pas été préalable- 
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ment définie. entre l'affectation de la 
variable destinée au CAL et le 
CALL lui même. En effet. l'initialisa 
tion d'une nouvelle variable provo- 
que un déplacement des tableaux. ce 
qui fait que. si cette règle n'est pas 
respectée, le CALL peut appeler 
autre chose que l'adresse de bran 
chement dans la routine. autrement 
dit: n'importe quoi. et bonjour la 
petite bombe! Cette particularité 
peut donner des programmes à l'as- 
pect étrange. la ligne 120 du pro- 
gramme joint à cet article parait 
complètement stupide si l'on à pas 
connaissance de ce problème de dé- 
placement 


Le CALL et la pile 


La notion de pile est bien connue 
des utilisateurs du Mac venant de 
l'Apple Il Il faut néanmoins signaler 
quelques différences entre la gestion 
de cette zone de mémoire par le 
6502 et le 68000 


e la pile du 6502 se trouve en page 
1 aux adresses $100 à $1FF alors 
que celle du 68000 peut être à 
n'importe quel emplacement: 

e la pile du 6502 est limitée à 256 
octets alors que celle du 68000 
peut théoriquement occuper 16 
Méga-octets (le pointeur de pile. 
qui est en fait le registre d'adresse 
7, contient 32 bits). Avec le Basic 
Microsoft. et par défaut. la pile oc- 
cupe 8 Ko. Ceci peut être modifié 
par l'instruction CLEAR 
CLEAR,. 1024 réduit la taille de la 
pile à 1 Ko. les 7 Ko ainsi libérés 
étant affectés au programme 
Basic: 

e le pointeur de pile étant un regis- 
tre d'adresse. on peut agir sur son 
contenu de la même manière 
qu'avec les autres registres. ce 
n'est pas le cas avec le 65(12 


Nous conseillons à ceux d'entre-vous 
qui désirent en savoir plus sur le mi- 
croprocesseur MC 68000 de se pro- 
curer l'ouvrage intitulé ‘Mise en oeu- 
vre du 68000”, aux éditions SIBEX 
Ce livre est relativement cher (198 
F), mais ce ne sera certainement pas 
un investissement inutile. Nous 
sommes en effet dans une situation 
paradoxale où l'on s'aperçoit que le 
seul ouvrage vraiment indispensable 
à ceux qui veulent connaître le fonc- 
tionnement du Macintosh n'est pas 
lun des nombreux livres qui ‘trai- 
tent” directement de cet appareil ! 


Appel d'une routine sans pas- 
sage de paramètres 


Lors d'un appel de routine, l'adresse 
de retour à l'interpréteur Basic est 
placée au sommet de la pile, le 
contenu du pointeur de pile (Stack 
Pointer - SP) est décrémenté de 4 
(adresse sur 32 bits, donc 4 octets) et 
pointe sur le premier octet de 





l'adresse en question. Pour revenir 
au programine Basic. il suffit d'utiliser 
l'instruction RTS (retour de sous-pro- 
gramme) qui Place dans le compteur 
ordinal (PC) le contenu de l'adresse 
pointée par le SP. qui est ensuite in- 
crémenté de 4 pour revenir à la va 
leur initiale (avant le CALL) 


Appel d'une routine avec pas- 
sage de paramètres 


Il est possible de passer autant de 
paramètres que nécessaire entre le 
programme Basic et la routine en 
langage machine. ou dans le sens in- 
verse. Tous les types d'arguments 
peuvent être communiqués 


e Les constantes ou expressions 
(B+10. par exemple) sont conver- 
ties en une valeur entière sur 16 
bits si possible. sur 32 bits sinon 

e Les variables entières restent sur 
16 bits 

e Les variables en simple ou double 
précision sont converties en une 
valeur entière sur 32 bits 

e Lorsque l'on veut passer à la rou- 
tine l'adresse d'une variable nu- 
mérique plutôt que son contenu. il 
faut utiliser l'instruction 
VARPTR(X} Dans ce cas. la va- 
leur est passée sur 32 bits 

e Pour une variable alphanumé:ri- 
que. VARPTR ne retourne pas 
l'adresse de la chaîne de caractè- 
res mais l'adresse où se trouvent. 
dans l'ordre. ie nombre d'octets 
dans la chaine (sur 16 bits) et 
l'adresse du premier caractère de 
la chaîne (sur 24 bits) 


Dans tous les cas. si l'on doit passer 
des arguments par l'intermédiaire de 
variables, que ce soit pour une va- 
leur ou une adresse. il est indispensa- 
ble que la ou les variables aient été 
préalablement définies. De même, 
lorsque l'on doit passer l'adresse 
d'un tableau de variables. il faut res- 
pecter les mêmes règles que pour 
une variable contenant une adresse 
destinée à un CALL 


Les paramètres passés à la routine 
sont placés dans la pile dans l'ordre 
de leur apparition dans l'instruction 
CALL. L'adresse de retour au Basic 
est ensuite empilée. Ainsi. pour l'ins- 
truction CALL A(X%. Y#, VARPTR 
(Z%)). nous trouvons dans la pile : 


<— 5P 
Adresse de retour 
ou Basic (32 bits) 


Adresse de £% 
(32 bits) 





Valeur de Y* 


(32 bits) 


| Valeur de X8 (16 bits) 


Fonctionnement de la 
routine 


Le but de cette routine est le trans- 
fert du contenu d’un tableau à deux 
dimensions dans un tableau à une 
dimension. afin de pouvoir réaliser 
une animation avec une seule ins- 
truction PÜT. alors quil en aurait 
fallu un grand nombre (32 dans 
notre exemple) avec la méthode nor- 
male L'appel de cette routine s'ef- 
fectue avec le passage des paramè- 
tres suivants: adresse du premier 
élément de la première dimension du 
tableau de départ. adresse de l'élé- 
ment (X.0) du même tableau. 
adresse du premier élément du ta- 
bleau d'arrivée Voyons ce que la 
routine fait de ces valeurs et, ligne 
par ligne, comment elle fonctionne. 


1 - Le contenu du registre d'adresse 
6 (32 bits) est placé dans la pile. Le 
pointeur de pile est décrémenté de 4 
(il pointe donc 4 octets plus haut que 
l'adresse de retour). et sa nouvelle 
valeur est placée dans A6 (registre 
d'adresse 6) Cetie manoeuvre est 
indispensable lorsqu'il y a passage de 
paramètres 

2 - L'adresse du premier élément 
du tableau de départ est la première 
valeur empilée au moment du 
CALL. et se trouve donc. compte 
tenu de la nature des 3 paramètres 
et de l'effet de l'instruction précé- 
dente. 16 octets plus bas que 
l'adresse pointée par A6. Cette ins- 
truction déplace donc une copie de 
adresse du premier élément du ta- 
bleau de départ dans Île registre 
d'adresse AO. 

3 - Nous avons vu précédemment 
que les deux octets situés juste au 
dessus de l'adresse d'un tableau à 
deux dimensions indiquent le nom- 
bre d'éléments dans la première di- 
mension. L'instruction MOVE 
—2(A0).00 effectue une copie de ce 
nombre dans les 16 bits de poids fai- 
ble du registre de donnée DO (les 16 
registres du 68000, qu'ils soient de 
donnée ou d'adresse, sont des regis- 
tres 32 bits). Nous nous servirons de 
cette valeur ultérieurement. 

4 - L'adresse du premier élément 
du tableau d’ariivée se trouve 8 
octets plus bas que l'adresse pointée 
par A6. Nous faisons une copie de 
cette adresse dans A0. 

5 - L'adresse du premier élément 
du tableau d'arrivée moins deux 
contient le nombre d'éléments Nous 


Pom's n° 16 


plaçons cette valeur dans les 16 bits 
de poids faible du registre de donnée 
DI. Ceci nous permet de savoir 
combien de mots de 16 bits devront 
être transférés et d'éviter ainsi des er- 
reurs catastrophiques. puisque la rou- 
tine ne pourra pas déplacer plus 
d'éléments que ne peut en contenir 
le tableau d'arrivée. 

6 - DI1. notre compteur d'éléments. 
est décrémenté de un. Nous verrons 
plus loin l'intérêt de cette opération. 
7 - L'adresse du premier élément à 
déplacer depuis le tableau de départ 
est copiée dans le registre Al. 

8 - La valeur du registre DO (qui 
contient le nombre d'éléments dans 
la première dimension du tabieau de 
départ) est multipliée par deux. puis- 
que le transfert porte sur des mots de 
16 bits 


Source de la routine de transfert 


9 - Tranfert du premier élément 
L'adresse contenue dans AO étant 
auto-incrémentée. AO pointe sur 
l'élément suivant du tableau d'arrivée 
dès la fin d'exécution de cette ins- 
truction 


10 - Dans le paragraphe consacré à 
la position des éléments dans un ta- 
bleau. nous avons vu que, dans le 
cas d'un tableau à deux dimensions. 
on trouve d'abord les premiers élé- 
ments. suivis des seconds éléments, 
et ainsi de suite... Donc, pour un ta- 
bleau A(3.9). l'élément (10) se 
trouve 8 octets plus loin que l'élé- 
ment (00) Ce déplacement se 
trouve dans DO, que nous ajoutons 
à Al pour obtenir l'adresse du pro- 
chain élément à transférer depuis le 
tableau de départ 


20° 


11 - L'instruction DBRA D1 BOUCLE 
décrémente la valeur contenue dans 
les 16 bits de poids faible de DI1. La 
valeur résultante est ensuite compa- 
rée à —1. Si le contenu de D1 est 
différent. le programme est dirigé 
vers l'étiquette BOUCLE”. Sinon, 
on passe à l'instruction suivante. On 
voit ici l'intérêt de la décrémentation 
de la ligne 6 puisque la sortie de 
boucle se fait lorsque D1 est égal à 
—1 En cas d'omission de la décré- 
mentation. on transférerait un élé- 
ment de trop, ce qui aurait certaine- 
ment pour conséquence un 
plantage” du Mac. 

12 et 13 - La routine a fait son tra- 
vail. on revient au programme Basic 
par RTS. sans avoir oublié de remet- 
tre les choses en état avec UNLK. 
qui est bien sûr l'inverse de LINK. 


30 DEFINT A-H:DEFSNG 1-Z:DIM C(19),B(65), 


1] 4E56 0D00 LENK A6,3%0 A(31,65),F(3),D(3) 
2  206E 0010 HOUER.L  16(A6),A0 40 DATA &h4E56,0,&h206€, 16,&h3028,&hFFFE, 
3 3028 FFFE NOVE -2(A0),00 &h206E,8,&h3228,&hF FFE, &hS341,&h226E, 12, 
+ 206E 0006 HOUER.L 8(R6),RO &hDO80,&h30D 1 ,&hD3CC,&hS 1C9, &hFFFA, 
5 3228 FFFE NOUE -2(A0),01 &NAESE, &h4E75 
6 5341 SUBQ s1,01 50 FOR B=0 TO 1 SREAD C(B):NEXT 
7?  226E 000€ HOUER.L  i2(A6),R1 60 FOR B=0 TO 3:F(B}r&HAASS:NEXT 
68 0080 ADD.L 00,00 70 D(0)=1jD(1)=11 
9 3001 BOUCLE  HOUE (A1), (AO)+ 80 FOR B=0 TO 31:D(2)=11+B:D(3)=D(2) 
10 D3C0 AODA.L 00,A1 90 CALL FILLRECT(VARPTR(D(0)), VARPTR(F(O))): 
11 5iC9 FFFA O6AR 0t,BOUCLE CALL FRAMERECT(VARPTR(D(O))) 
12 4ESE UHLK A6 100 GET(11,11)-(42,42),B 
13 4€7S ATS 110 FOR E=0 TO 6S:A(B,E)=B(E):NEXT-NEXT 


10‘ Exempie d'animation utilisant une 
routine en langage machine pour le 
transfert de tableaux de variables 


entières. 


Il semble inutile de s’attarder sur le 
petit programme Basic dont la 
compréhension est aisée lorsque Fon 
a tous les éléments. Nous n'avons 
pas joint l'équivalent de ce pro- 
gramme en utilisant la méthode nor- 
male, car cela aurait pris beaucoup 


Restauration de  dis- 


quette 


1 arrive qu'il ne soit plus possible 
d'utiliser une disquette abimée par 
une micro-coupure, un RESET in- 
tempestif.. durant un accès au dis- 
que. On parvient parfois à restaurer 
la disquette avec la procédure sui- 
vante, à démarrer avec l'appareil 
éteint : — Mettre la disquette fautive 
dans le lecteur intégré. 

— Allumer l'appareil en maintenant 
enfoncées les touches Option et 
Commande. 
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120 Y=0-X=0:Z=VARPTR(C(0)):Y=VARPTR(A(O,O)): 


de place et ne présentait pas d'inté- 
rêt. Ce dont vous pouvez être sûr, 
c'est qu'un tel programme prend 
vraiment beaucoup plus de place 
que celui que nous vous proposons. 
Le seul défaut de cette méthode est 
sa relative lenteur par rapport à une 


Disquette Macintosh 


La disquette Macintosh comporte les 
programmes Macintosh publiés dans 
les Pom's 14 à 16: le nouveau sys- 
tème, la police Cairo (Pom's 15) et 
le programme Disk Copy. La grande 
surprise que nous vous y avons 


ajouté pour ce numéro est le pro- 
gramme “Localizer' 

Ce programme vous permet de mo- 
difier le clavier d'une disquette sans 


X=V ARPTR(B(O)) 
130 FOR B=0 TO 31:CALL Z{Y, VARPTR(A(B,0)),X): 
PUT(100, 100),B,PSET:NEXT:GOTO 130 


série de PUT. mais ce n’est pas vrai- 
ment un inconvénient, d'autant 
qu'avec la méthode classique il est 
souvent nécessaire d'insérer des bou- 
cles de délai. Faites l'expérience. 


toucher au reste du système. C'est 
très utile car, quand vous remplacez 
le système d’une disq''ette US par 
un système français, vous écrasez 
tout ce qu'il pouvait y avoir par ail- 
leurs dans le système américain, par 
exemple les polices. C'est ce qu'ont 
découvert avec grand déplaisir cer- 
tains possesseurs de Multiplan US, 
après avoir copié un système français 
ne comportant pas la police Seattle. 








Sie el LN à 


ne P UT Les be 





MacPaint et le Basic 


Pom's 


Nous avons pensé qu'il pourrait être 
intéressant de récupérer des docu- 
ments MacPaint depuis le Basic, pour 
en faire, par exemple, des décors de 
programmes de jeux ou, simplement. 
des présentations soignées de pro- 
grammes plus sérieux. Le temps né- 
cessaire à la réalisation d'un pro- 
gramme se trouve sérieusement 
raccourci puisque l’on peut "planter 
le décor ” très rapidement avec Mac- 
paint. En revanche, s’il est possible 
de faire la même chose avec unique- 
ment le Basic, une présentation so- 
phistiquée risque d'utiliser toute la 
mémoire disponible sur un 128 Ko et 
d'occuper la place nécessaire pour la 
partie logique du programme. 


Mode d'emploi 


Il faut. bien sûr. créer un document 
MacPaint dont on utilisera seulement 


les 300 premières lignes de 496 
points, situées dans l'angle supérieur 
gauche de la page graphique. La 
deuxième étape consiste en la 
conversion du document en un fi- 
chier facile à charger depuis le Basic. 
Pour ce qui est de la méthode em- 
ployée pour transformer le docu- 
ment, vous pouvez vous reporter à 
l'article ‘Personnalisez vos disquettes 
Macintosh”, publié dans ce numéro. 
Vous pourrez d’ailleurs constater que 
les programmes sont presque identi- 
ques; seule la méthode employée 
pour la sauvegarde du fichier final est 
différente. Une fois le fichier converti 
quelques lignes de Basic suffisent à 
son chargement 


Nous avons choisi d'utiliser 300 
lignes de 496 points parce que cela 
correspond au remplissage de la fe- 


nêtre de sortie du Basic Microsoft, 
lorsqu'elle est ouverte au maximum. 
Cependant, vous pouvez choisir une 
autre dimension en modifiant les 
lignes 70 et 80 du programme de 
conversion. Pour un document de 
200 lignes de 256 points. il faut que 
L (nombre de lignes) soit égal à 200, 
et que M (nombre de mots de 16 
bits par ligne) soit égal à 16 (256 / 
16 = 16). De même. le petit pro- 
gramme de chargement doit être mo- 
difié en conséquence. 


Pour le chargement. bien que le pro- 
gramme soit très court, il est encore 
possible de libérer 66 octets en ‘'de- 
letant” le tableau A(32), inutile une 
fois l'affichage de l'image effectué. 





10° Conversion de fichiers MacPaint en 
fichiers utilisables depuis un programme 
Basic. 
20° 
30 DEFINT A-Y:OPTION BASE !:DIM A(36): 
ON ERROR GOTO 230 
40 CES.CALEL TEXTFONT(O) 
42 PRINT'Ce programme transforme un document 
MacPaint”* 
43 PRINT'en un fichier séquentiel utitisable depuis 
un” 
44 PRINT"programme en Basic Microsoft.” 
45 PRINT La partie supérieure gauche du document 
est utilisée” 
46 PRINT"(500 lignes * 496 colonnes)." PRINT 
S0 INPUT'Fichier MacPaint à convertir ? ”,2$. 
OPEN"i",1,2$ 
60 INPUT"Fichier à créer ? “,Z$.OPEN"o”,2,2$ 
70 L=300 
80M=31 
90 PRINT.PRINT"Conversion en cours...” 
100 Z$=INPUT$(S12,1) 
}1O FOR 1=1 TO LFOR J=} TO M:A(J)=O:NEXT:X=0 
120 NO=ASCUINPUT$(1,1 IF NO<18S THEN O=NO* 1: 
GOTO 170 ELSE O=2S6-NO+ 1: 
C=ASC(INPUT $(1,1)) 
130 FOR J=1 TO O:iF (J+X+ 1) MOD 2 THEN 
A((J+X+1)\2)=A((J+X+1)\2) OR C:GOTO 160 
140 CI=C*2S6:1F C 32767 THEN CI=CI-65536! 
150 H=CEA((U+X+1)\2)=A((J+X+1)\2) OR H 


160 NEXT:X=X+0:6GOTO 210 

170 FOR J=1 TO OX=X+ 1:C=ASC(NPUTS(1,1)): 
IF (X+1) MOD 2 THEN A(CX+ 1 )\2)=A((X+1)\2) OR 
C:GOTO 200 

180 CI=C*256:1F Cl>32767 THEN CI=CI-655361 

190 H=CI:A((X+1)\2)=A((X+1)\2) OR H 

200 NEXT 

2101F X<72 THEN 120 

220 FOR J=1 TO M:PRINT #2,A(J):NEXT:NEXT: 

CLOSE. PRINT"Conversion effectuée.” GOTO 240 
230 CLOSE:IF ERL=220 THEN PRINT'La disquette est 
saturée !” RESUME 240 ELSE iF ERL=SO THEN 

RESUME 50 ELSE RESUME 60 

240 PRINT'Autre fichier à convertir ? (O/N) 

250 Z$=INKEYS:IF Z$="" THEN 250 ELSE IF Z$="0" OR 
2$="0" THEN 40 ELSE IF Z$="N" OR Z$="n" THEN 
END ELSE 250 


10° Chargement et affichage d'une image 
réalisée ayec Macpaint et transformée 
avec le programme de conversion. 

20 DEFINT A-Z:CES 

30 DIM A(32):A(0)=496:A(1)=1 

40 OPEN‘i",1 "nom du fichier” 

50 FOR 1=0 TO 299:FOR J=0 TO 50: 
INPUT 1 ,A(J+2):NEXT: 
PUT (0,1), A:NEXT:CLOSE 

60 GOTO 60 


A ENNNEEEMRNMEEEMEER à 0 
40 
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La tendance actuelle des construc- 
teurs d'ordinateurs et. en particulier. 
d'Apple. est de dire qu'il nest pas 
nécessaire de savoir programmer 
pour utiliser ce type de machine. Si 
cela est vrai, il est aussi indéniable 
que la plupart des particuliers qui 
possèdent un micro-ordinateur pas- 
sent plus de temps à le programmer 
qu'à utiliser des programmes tout 
faits. Dans un même ordre d'idée. on 
nous répète sans cesse que l'on peut 
tout faire avec Multiplan: nous serons 
prêts à le croire le jour où l'on nous 
présentera un tel tableur écrit en ce 
‘langage . Cela nous rappelle d'ail- 
leurs la grande question métaphysi- 
que: ‘est-ce l'oeuf qui a pondu 
l'oeuf ou l'oeuf qui a pondu 
l'oeuf..." 

Cette entrée en matière quelque peu 
rageuse traduit notre sentiment, lors- 
que l'on constate qu'aucune informa- 
tion technique n'est fournie à l'utilisa- 
teur. qui a quand même investi 
quelques milliers de francs dans un 
appareil, et serait en droit d'en savoir 
un peu plus. Nous sommes assez loin 
des “Tutorials” et autres manuels de 
référence de l'Apple Il. et ce n'est 
pas la “littérature spécialisée” actuelle 
qui suffit à combler le vide Ceci 
étant dit, lorsque l'on regarde ce qui 
s passe ‘à l'intérieur", le Macintosh 
est une machine passionnante qui 
utiise un processeur remarquable, et 
Pom's a bien l'intention ‘d'ouvrir la 
boite. 


Pour mieux connaître le fonctionne- 
ment de la ‘chose’. nous n'avons 
pas trouvé d'autres solutions que le 
désassemblage de certaines zones de 
mémoire. Ce n'est pas une mince af- 
faire. sans désassembleur. d'autant 
plus que toutes les instructions du 
68000 sont codées sur au moins 16 
bits. ce qui fait. étant donnés les 14 
modes d'adressage autorisés, un 
grand nombre de codes machine 
possibles 


Dès le début de nos recherches. 
nous avons trouvé de nombreux 
codes ne correspondant pas à des 
instructons  Valides. Après avoir 
douté quelques instants de la fiabilité 
de notre méthode de désassemblage 
manuel. il s'est avéré que ces instruc- 
tions illégales étaient utilisées pour 
l'appel des routines situées dans la 
ROM de 64 Ko. ainsi que pour quel- 
ques routines en RAM 


Instructions 
illégales 


Lorsque le processeur rencontre un 


code ne correspondant pas à une 
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Appel des routines en ROM 


Gérard Michel et Jean-Luc Bazanegue 


instruction valide, il entame une pro- 
cédure d'exception Deux cas peur- 
vent se présenter: code dont les 
quatre bits de poids fort correspon- 
dent à la combinaison binaire 1010 
ou 111! ($A ou $F}): code dont les 
quatre bits de poids fort ne forment 
pas la combinaison 1010 ou 1111. 
mais dont la combinaison binaire ne 
permet pas de reconnaître une ins 
truction valide Nous ne traiterons ici 
que de la première solution. utilisée 
pour l'appel des routines 


Une procédure d'exception est effec- 
tuée de la manière suivante 


e Le processeur passe en mode su- 
perviseur. si toutefois il n'y était 
pas déjà. En effet. le 68000 peut 
fonctionner dans deux modes dif- 
férents : le mode utilisateur, dans 
lequel la totalité des instructions 
ne peut pas être utilisée. et le 
mode superviseur qui autorise 
l'exploitation de toutes les instruc- 
tions. Nous ne nous attarderons 
pas sur ce point car il semble que. 
sur le Macintosh, le 68000 soit 
toujours en mode superviseur 

e La logique du processeur génère 
un numéro de vecteur qui est: 10 
pour un code commençant par 
1010. 11 pour un code commen- 
çant par 1111 

e Le contenu actuel du compteur 
ordinal (Program Counter - PC) 
est mis en pile Îl est important de 
signaler que l'adresse placée dans 
la pile est celle de l'instruction illé- 
gale provoquant l'exception 

e Le contenu du registre d'état 
(Status Register - SR) est mis en 
pile. À ce stade. le contenu du re- 
gistre pointeur de pile (Stack Poin- 
ter - SP) a été décrémenté de 6. 
par rapport à sa valeur avant le 
début de la procédure d'excep- 
tion. puisque nous avons empilé le 
PC (32 bits) et le SR (16 bits) 

e La valeur du numéro de vecteur 
est multipliée par quatre: pour une 
exceptien provenant d'un code 
dont les quatre bits de poids fort 
sont à 1010, le numéro de vecteur 
est 10, ce qui nous donne 40 
Ceci correspond à l'adresse conte- 
nant l'adresse à placer dans le PC. 
donc l'adresse de la prochaine ins- 
truction à exécuter 


Tous les appels de routines étant ef- 
fectués par des instructions illégales 
commençant par 1010. nous alons 
étudier de plus près le contenu de 
l'adresse 40. et surtout ce qui se 
passe lorsque l'on a obtenu cette va- 
leur 





Routine de calcul 
des adresses 


Pour savoir quelle est l'adresse 
contenue par l'adresse 40, il suffit, 
sous Basic, de faire des ‘PEEKSs"” aux 
adresses 40, 41. 42 et 43 Il est d'ail- 
leurs important de signaler que 
toutes nos recherches sont effectuées 
avec le seul Basic Microsoft. soit avec 
des moyens accessibles à tout un 
chacun Aux adresses sus-nommées, 
nous trouvons : 0, 64, 16 et 24, ce 
qui nous donne l'adresse 0 + 655-36 
+ 64 « 4096 + 16 » 256 + 24. sait 
266264 ou en  hexadécimal, 
$041018 Cette adresse (impression- 
nante quand on vient de l'Apple Il) 
correspond au point d'entrée dans 
une routine {en ROM) qui calcule les 
adresses des autres routines. en fonc- 
tion de la valeur du code qui a pro- 
voqué la procédure d'exception. 
Toujours à l'aide du Basic. nous 
avons lu les codes machine situés à 
partir de cette adresse. puis désas- 
semblé (à la main!) ce qui nous 
donne la ‘pseudoliste d'assem- 
blage” que vous trouverez à la fin de 
cet article La méthode employée 
pour le calcul des adresses n'étant 
pas forcément évidente. nous vous 
proposons quelques  explicatons 
Afin de les clarifier, nous allons pren- 
dre le cas du code illégal $A94C. qui 
provoque l'appel de la routine qui in- 
verse l'état des pixels constituant la 
barre des menus 


1 - Le contenu du pointeur de pile 
est décrémenté de deux 

2 - Le registre d'adresse A2. ainsi 
que les registres de donnée B1 et 
D2. sont sauvegardés dans la pile 
qui. à ce stade, se présente ainsi 


€ SP actuel 


Registre D! 


Registre D2 


Registre A2 


€ SP ligne | 


D | 


A M ER. 


41 


] Ancienne valeur 
du SR 


Ancienne valeur 
du PC 





3 - Le contenu de l'adresse pointée 
par le SP plus 16 {ancienne valeur 
du PC, soit l'adresse de l'instruction 
invalide) est transféré dans le registre 
d'adresse A2 

4 - Une copie de l'instruction inva- 
lide est placée dans les 16 bits de 
poids faible du registre de donnée 
D2. Ainsi D2 (registre 32 bits) 
contient FXXXXA9AC. les "X' repré- 
sentant la valeur indéterminée conte- 
nue dans les 16 bits de poids fort 
Après exécution de cette instruction, 
le registre A2, qui est auto-incré- 
menté. pointe sur l'instruction à trai- 
ter au retour de la routine. 

5 - L'adresse de retour est placée 
dans la pile, écrasant ainsi l'adresse 
de l'instruction illégale. 

6 - Une copie des 16 bits de poids 
fort de D2. aui contiennent l'instruc- 
tion illégale, est placée dans D1 

7 - Le code de l'instruction illégale 
est comparé à la valeur immédiate 
$A800. 

8 - Le bit ‘carry” du registre d'état 
est placé à 1 si le code de notre ins- 
truction illégale est inférieur à $A800 
Comme ce n'est pas le cas. nous 
passons à l'instruction suivante 

9 - L'adresse de l'instruction suivante 
(ligne 10) est mis en pile. Le poin- 
teur de pile est décrémenté de 4 et le 
compteur ordinat est chargé avec 
l'adresse de l'instruction située à l'éti- 
quette "ETQ2", Pour que les choses 
soient bien claires: le pointeur de 
pile contient l'adresse où est sauve- 
gardée le registre D1. moins 4. 

16 - Un ‘ET logique est réalisé 
entre les 16 bits de poids fort de D2 
et la valeur immédiate S$O1FF 
Comme nous avons $A94C dans le 
registre, la valeur résultante est 
FXXXX014C. 

17 - Le bit 15 du registre D2 (bit de 
signe lorsque l'on utilise seulement 
les 16 bits de poids faible) est copié 
dans les 16 bits de poids fort. Le bit 
15 étant à 0, nous obtenons la va- 
leur $0000014C. Ceci permet de 
supprimer d'éventuelles valeurs para- 
sites. 

18 - On ajoute le registre D2 à lui- 
même, ce qui revient à multiplier son 
contenu par 2. Îl contient maintenant 
$00000298. 

19 - L'adresse $000400 est chargée 
dans le registre A2 

20 - Le contenu (16 bits) de 
l'adresse calculée en ajoutant la va- 
leur de A2 à celle de D2 est placé 
dans le registre D2 5088488 + 


$000298 = 5000698. Cette adresse 
contient $8B9B 

21 - Le contenu des 16 bits de poids 
faible du registre D2 ($8B9B) est 
multiplié par deux On a maintenant 
$1736 et le bit ‘carry (retenue) est 
positionné à 1 puisque le résultat de 
opération ne ‘tient’ pas dans 16 
bits. 

22 - L'instruction BCS (branchement 
si retenue à |) nous dirige vers l'éti- 
quette “ETQ4"” 

25 - Les 32 bits situés à l'adresse 
$02B2 sont ajoutés aux 32 bits du 
registre D2 Nous trouvons la valeur 
$00000B00, que nous ajoutons à 
$00001736 pour obtenir 
$00002236 Cette valeur est 
l'adresse de la routine d'inversion de 
la barre des menus Cette routine 
n'est pas en ROM puisque l'adresse 
de base de cette dernière est 
$040008. adresse que nous trouvons 
d'ailleurs en $O02AF Nous avons 
constaté que les instructions illégales 
commençant par $A9 provoquent 
toujours un branchement sur une 
routine en RAM. alors que celles qui 
débutent par $AB8 concernent des 
routines en ROM 

26 - Nous retournons à la ligne 10. 
après avoir incrémenté le pointeur de 
pile de 4 Ainsi, le SP pointe à nou- 
veau sur l'adresse de sauvegarde de 
DIL comme avant l'exécution de la 
ligne 9 


10 - Le contenu de D2 {adresse de 
la routine) est placé dans la pile à 
l'endroit où se trouvaient les deux 
octets libres et l'ancienne valeur du 
registre d'état {d'où l'intérêt de la 


première instruction - SUBQL 
#2,SP - qui libérait deux octets dans 
la pile). 


11 - Comparaison du code de l'ins- 
truction illégale (dont nous avions fait 
une copie à la ligne 6) avec la valeur 
$SACOO. Le bit ‘carry’ du registre 
d'état est placé à 1 ou à O en fonc- 
tion du résultat de la comparaison, et 
sera utilisé un peu plus tard (quel- 
ques microsecondes !). 

12 - Les valeurs sauvegardées à la 
ligne 2 sont replacées dans les regis- 
tres DI. D2 et A2 afin d'obtenir la 
configuration de départ. De même, le 
SP contient l'adresse qu'il contenait 
lors de l'entrée dans la routine. 
adresse où se trouve maintenant 
l'adresse de la routine. 

13 - Nous utilisons ici le bit “carry”. 
positionné par là comparaison de la 
ligne 11. Si le code est inférieur à 
$ACO0, ce qui est le cas, nous pas- 
sons à l'étiquette "ETQ3”. 

15 - Puisque le SP pointe sur 
l'adresse de la routine, l'instruction 
RTS provoque le branchement. Le 
SP est ensuite incrémenté de 4. 
pointant ainsi sur l'adresse de retour 
au programme appelant. 


Routine de calcul des adresses des routines en ROM 


| 041018 558F 
2 041014 46E 76020 
3 O4101E 246F0010 
4 041022 341A 
5 041024 2F4A0010 
6 04028 3202 
7 041024 OC42A600 
B 04102E 6534 
9 041030 6112 
10 041032 2F42000C 
FI 041036 OC41AC00 
12 041034 AC41ACO00 
13 04103E€ 6502 
14 041040 2E9F 
15 041042 4€75 ETQS 
16 041044 024201FF ETQ2 
17 041046 4BC2 
1B 041044 D442 
19 04104€ 45FB0400 
20 041050 34322000 
21 041054 D442 
22 041056 6506 
23 041056 D4B602AE 
24 04105C 4€75 
25 04105E 04660262 
26 041062 4E75 
27 041064 06620006 ETAI 
28 041068 6618 
29 041064 6106 
30 04106€ 2442 


A 


42 


ETQ4 


SU6QL 22/SP 
MOVEM.L A2/D2/01,-(SP) 
MOVEA.L $0010(SP),A2 
MOVE (A2}+,02 
MOVE.L A2,$00 10(SP) 
MOVE D2,01 

CMPI #$AB00,02 
BCS ETO: 

BSR ETQ2 

MOVE D2,$000C(SP) 
CMPI #$ACO0,DI 
MOVEM.L (SP)+,D1/02/A2 
6CS ETQS 

MOVEL (SP)+,(SP) 
RTS 

AND! #$01FF,D2 
EXT.L D2 

ADD D2,02 

LEA $000400,42 
MOVE O(A2,02),02 
ADD D2,02 

BCS ETQ4 

ADDL $02AE D2 

RTS 

ADD $0262,02 

RTS 

GCLR “6,02 

GNE ETQS 

GSR ETQ2 

MOVEA.L D2,42 
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31 04106E 48E700C0 
32 041072 4E92 
33 041074 acDF0300 
34 041078 acDF0406 
35 04107C 5B4F 
36 04107E 4440 
36 041080 4E75 
39 041082 61C0 
40 041064 2442 
41 041066 2F09 
42 041066 4E92 
43 041084 225F 
44 04108C GOEA 


ETQG 


ETQS 


MOVEML  AI/AO,-(SP) 
JSR (A2) 
MOYEML  (SP)+,A40/A1 
MOVEML  (SP}+,D1/D2/A2 
ADDQ #4,SP 

TST Do 

RTS 

BSR ETQ2 
MOVEAL  D2,42 
MOVE.L A1,-(SP) 
JSR (A2) 
MOVEAL  (SP}+,A1 
ERA ETQ6 


Nous avons étudié un seul cas car il 
n'est pas possible de les passer tous 
en revue. Néanmoins, le principe 
reste le même pour tous les appels 
de routines et l'important est de 
connaître la méthode utilisée. Pour la 
routne d'inversion de la barre des 
menus, on peut vérifier que notre 


calcul est juste en faisant, sous 
Basic : 
A!=&h2236:CALL A! 

E 





Réservation de mémoire 


La documentation qui accompagne 
le Basic Microsoft signale, à juste 
titre, que les routines en langage ma- 
chine doivent être relogeables, c’est- 
à-dire que leur exécution doit pou- 
voir se faire quelle que soit leur posi- 
tion en mémoire. La raison de cette 
contrainte est que tout ce qu se 
trouve en mémoire vive se déplace 
en permanence. Par exemple, la 
création d’une variable déplace les 
tableaux de variables préalablement 
définis. Le système n’est pas critica- 
ble, puisque te 68000 permet la réa- 
lisation de codes relogeables très sim- 
plement, mais il peut être utile de se 
réserver un bloc de mémoire situé à 
une adresse connue, et qui n'aurait 
pas la bougeotte, pour faire des 
essais ou installer des tampons. 


Source de la routine 


4E56 0000 LIHK 


202E 0010 HOUE.L 
AE -HesPtr 
226E 0008 HOUEA.L 
3288 HOUE 
226E 006C HOUEA.L 
2006 HOUE.L 
4840 SUAP 
3280 HOUE 
4ESE UNLK 
4E?5 RTS 
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ñ6,20 
16(A6),00 
8(A6),A1 
A0, (A1) 
12(R6),R1 


AO,00 


00,(ft) 


Nous vous proposons une petite rou- 
tine qui créée une zone de mémoire 
fixe du nombre d’octets de votre 
choix, en fonction de la valeur conte- 
nue par la variable N! (256 dans 
notre exemple). L'adresse du pre- 
mier octet de la zone est choisie par 
le système de gestion de la mémoire. 
Les 16 bits de poids fort de l'adresse 
sont placés dans A1%, les 16 bits de 
poids faible dans A2%. Le calcul de 
la position du bloc en mémoire est 
donc facile. 


B faut utiliser cette routine avec pru- 
dence car le système cherche tou- 
jours de la place, et fera tout pour en 
trouver, quitte à détruire un bloc de 
mémoire relogeable non protégé, 
mais utilisé par le Basic. Si l’on ne 
prend pas beaucoup de risque en se 
créant un bloc de 256 octets, ce 


n'est pas le cas si l’on essaie de ré- 
= 


server 10 Ko. 


1 ‘ Réservetion d'un bloc fixe de # 
octets 

2' 

10 DIMR&(14) 

20 DATA &h4E56 &h0000 &h202E, 
&h0010 &hA11E &h226E &h0008, 
&h3266 &h226E &h000C &h2006, 
&h4840 &h3260 &h4ESE &hdE75 

30 FOR i8-0 TO 14:READ R@(IB)-NEXT 

40 A1#:0:A2#=0:N1-256 

50 MI=VARPTR(R&(0)) 

60 CALL MI(NI,VARPTR(A 18), 
VARPTR(A?2#)) 

70 IF AIS<O THEN &lisA 1365536! 
ELSE Al=A18 

80 1F A2%<0 THEN A2i:A2%-65536! 
ELSE A2428 

90 Al=A11#65836#+A2;: 

PRINF ‘Le premter des” N! "octets se 
trouve à l'ebresse” A! 


; voir l'article "CALL : exemple d'application” 
; déplace une copie du contenu de la variable M (situë 


; dans lo pile) dans le registre de donnée DO 
; Trop (voir l'erticle "Appel des routines en ROM”) 


; d'adresse A 


; place l'adresse de la variable A2% dans le registre 


; les 16 bits de poids faible de l'adresse du bloc de 


; mémoire sont placés à l'adresse de la variable A28 


; d'adresse At 


; donnée DO 


; place l'adresse de la Variable A1% dans le registre 


; copie du registre d'adresse AO dans le registre de 


; inverse les ?6 bits de poids fort et les 16 bits de 


; poids faible de DO 


;: les 16 bits de poids fort de l'adresse du bloc de 


; mémoire (qui sont maintenant dans les deux octets 
; de poids faible de DO) sont placèés à l'adresse où se 


; trouve la variable A1 


ER 
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Entrée analogique améliorée 


J. Gunther 


Les entrées analogiques de l'Apple, 
également appelées ’entrées des ma- 
nettes de jeux”, servent à numériser 
la valeur d’une résistance, variant de 
O à 150 kilo-ohms et contenue, par 
exemple, dans un joystick 


ll est facile de brancher autre chose 
qu'un potentiomètre : une thermis- 
tance (mesure de la température), 
une  photorésistance (mesure de 
l'éclairage), ou un transistor (mesure 
de l'intensité) peuvent être utilisés 
par certaines applications. 


En Basic, les entrées analogiques 
sont mesurables par les instructions 
PDL (0) à PDL (3) qui retournent 
une valeur comprise entre O et 255 
(en pratique, l'interpréteur Applesoft 
se contente d'appeler la routine 
PREAD située en $FB1E). 

Pour utiliser ces entrées comme ins- 
trument de mesure, il serait intéres- 
sant d'avoir une meilleure résolution. 


Le principe général est de décompter 
le temps de décharge d'une capacité 
à travers la résistance étudiée. Le 
“top” de départ est donné par un 
appel à la mémoire $C070, et le 
“top” d'arrivée par la remise à zéro 
du bit 7 de la mémoire $C064 + X. 
X étant le numéro de l'entrée. 


Le petit programme suivant : 
LDX #KQ 

LDA $C070 
LDA H$SO 
INX 
BIT 
BPM 
RTS 
montre qu'à la sortie, le contenu du 
registre X varie de O à 255, puis re- 
vient à O et termine vers 130 lorsque 


l'on tourne le potentiomètre. La ré- 
solution peut donc être améliorée. 


BOUCLE 
$CO0é4 
BOUCLE 


Le problème consiste à déterminer le 
nombre de tours effectués. Par le 
procédé ci-dessus, une valeur de 40 
en sorte n'indique pas si la résis- 
tance se trouve à 40 ou à 255 + 40. 


C'est donc l'objet du programme 
ANALOG, qui améliore considérable- 
ment la résolution (environ 3 fois). 
En contre-partie. le temps de recher- 
che peut sembler long (jusqu'à 2 se- 
condes) mais toutes les applications 
des entrées analogiques de l’Apple 
ne concernent pas des jeux vidéo à 
haute vitesse | 


Pour rester simple. le programme ne 
contrôle que l'entrée numéro O {il 
faut modifier la variable d’assem- 
biage ENTREE du source) et stocke 
le résultat aux adresses 00 et O1. Le 
programme ANALOG.DEMO fournit 
une démonstration. 





6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 € € € EX À 





1 à 
33 INC VAL incrimente 
- Un NU lez cOmpAEUre 
4 34 BNE  OEBUT 
35 INC  UAL+I 
: : J. Gunther 34 INC VAL 
; 37 BNE  DEBUT =jmp 

& è assembl<t AÂ/29sep84 Big Mac 38 FINI RTS 
9 x Pragramme permettant ure lecture . 

à haute r{sciution des *8000.8029 
10 # entres analogiques. 
12 8000- A7 01 85 01 85 00 AD 70 
RER M RAR RSRREE 8008- C0 Aé 00 A4 0! CA DO FD 
13 VAL - æa0 page ztro 8010- 88 D0 FA AD 64 CO 10 11 

pour simpl.fier 8018- A9 80 2C 64 CO 30 FB Eé 
14 8020- 00 DO E3 Eé 01 Eé 00 DO 
15 LOA Hi + 
té STA VAL+I 8028 BREST 
1e STA VAL 
18 
19 DEBUT LOA $Cco70 top de d{s 1  REM *%#%%#%  ANALOG.DEMO  #x%%x 

art 2 REM AA/29sep84/pour J.Gunther 
20 LDX VAL double bou 3 ONERR GOTO 97 

A PT 10 GR : COLOR= 2: FOR 1 = O0 TO 47: HLIN 
21 LDY VAb+! 0,39 AT I: NEXT : TEXT : HTAB 1: V 
22 BOUCLE  DEX TAB 1 
23 BNE BOUCLE 20 INVERSE : PRINT "  DEMONSTRATION DE L 
24 DEY ECTURE ANALOGIQUE  ": NORMAL 
25 BNE BOUCLE 30 PRINT CHRS& (4)"BLOAD ANALOG,A4$300 ": 
26 REM entièrement relogeable 
27. LDA $SCOé4+ENTREE 40 PRINT : PRINT SPCC 4)"<CAPPUYEZ SUR C 
28 8PL FINI fini si < TRL-C POUR FINIR)" SPCC S) 

$80 50 POKE 32,13: POKE 33,14: POKE 34,5: PQ 
29 LDA #$80 KE 35,23: HOME : PRINT 
30 BOUCLEZ BIT $COS4+ENTREE taisse | 60 CALL 768: PRINT " POL{O) = * RIGHTS € 

a dtcharge se terminer MOD" + SE STRPLC29 7 ME TCLPEERS CIEL 
31 BMI  BOUCLE2 > + PEEK (0) —- 132,3)" ";: GOTO 60 
32 99 TEXT : HOME 
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Un désassembleur en Applesoft et WPL 


Pom's a déjà ouvert ses pages à des 
auteurs, parmi les plus “prestigieux”. 
qui s'étaient attachés à démontrer 
que le fameux Visicalc pouvait servir 
à bien d'autres choses que celles 
auxquelles il semblait essentiellement 
destiné. 

Dans le même ordre d'idées. je vou- 
drais vous proposer ici une utilisation 
originale de WPL. je petit langage de 
programmation du traitement de 
textes Appleuriter Il et //e. |! s'agit en 
fait de le mettre à contribution. en 
complément d’un programme en Ap- 
piesoft, pour reconstituer à partir 
d'un code en langage machine un fi- 
chier source en assembleur symboli- 
que exploitable ensuite par LISA 2.5 


Evidemment. il ne faut pas attendre 
d'un tel système des performances 
extraordinaires en matière de désas- 
semblage, qu'il s'agisse de la sou- 
plesse des manipulations ou de la ra- 
pidité des traitefñhents. Mais il vous 
permettra néanmoins de réaliser un 
désassemblage précis. correct, et 
votre fichier source aura au moins le 
privilège de n'avoir pas été engendré 
par des moyens tout à fat ordinai- 
res. 


Introduction sous forme 
d'exemple 


Pour illustrer les possibilités du logi- 
cieL nous allons présenter un pro- 
blème concret de désassemblage. ap- 
pliqué à un petit morceau de la ROM 
Applesoft. situé entre les adresses 
$D31F et $D392. Ce fragment n'a 
pas grande signification en lui même. 
mais comporte une zone de données 
et une zone de programme 


Voici le listing que l'on obtient avec 
la commande L du moniteur 


Listing 1 

031F- 46 4F LSR $4F 
D321- 52 29? 

D322- 40 SS 4C EOR s4CS5S 
D325- 41 20 EOR (820,X) 
0327- $4q 279 

D328- 4F 29? 

0329- 4F 22? 


D324- 20 43 4F JSR 54F43 
D320- 40 50 4C EOR #4C50 
0330- 45 08 EOR $08 


D332- 43 27? 
D333- di 4€ EOR ($4E,X) 
D335- 27 29? 
D336- 54 22? 


0337- 20 43 4F JSR $54F43 
033A- 4E 54 49 LSR 54954 
0330- dE 55 CS LSR $C5S5 


D340- 35 4€ EOR 54E,.X 
D342- 44 2929 

D343- 45 46 EOR #44 
0345- 27 PP? 
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D347- 20 46 55 JSR 535546 
0344- 4E 43 54 LSR 55443 
D34D- 49 4F EOR #54F 

034F- CE 20 43 DEC 54520 


0352- 52 ??? 
0353- 52 22%. 
D354- 4F ?P79? 
0355- 52 rit 
D3S56- 07 PP? 
03357- 00 BRK 


D358- 20 49 4E JSR #4E49 
D358- 20 00 00 JSR #0D00 


035E- 42 27? 
D35F- 52 7??? 

0360- 45 4] EOR 541 
D362- 48 2??? 

D363- 07 2??? 

D364- 00 BRK 

0365- BA TSX 

D366- E8 INX 

0367- ES INX 

0368- E8 INX 

0369- ES INX 

D36A- 8D 01 01 LDA S0101.X 
D36D- C9 81 CMP #8! 
D36F- D0 21 BNE $0392 
D371- AS 86 LDA $846 
0373- DO tA BNE #5037F 
0375- BD 02 01 LDA $#0102.X 
0378- 985 85 STA 585 


037A- BD 03 01 LDA $%0103,Xx 
D370- 95 86 STA 586 
D37F- DO 03 01 CMP 50103,X 


0382- 00 07 BME $0388 
U384- AS 85 LDA $85 
0386- DD 02 01 CMP $0102.X 
0389- FO 07 BEQ $0392 
0388- SA TXA 

D38C- 18 CLC 

038E- $9 12 AOC ##12 
D38F- AA TAX 

D320- 00 08 BNE S034à 
D392- 40 RTS 


Ce listing met bien en évidence la 
zone de données {$D31F à $D364) 


Le module Applesoft du désassem- 
bleur proposé (programme 
DSMTEXT} utilise la routine L du 
moniteur. plus des possibilités de lis- 
ting en hexadécimal ou en ASCII 

Les listings réalisés, au moyen de 
commandes sur lesquelles nous re- 
Viendrons. sont créés à l'écran ou sur 
disquette 


A partir des deux commandes 
D31F D364A 
D365 D392L 


il donne le résultat suivant 
Listing 2 


031F- ASC ‘FORMULA TOO COMPLE” 
D331- ASC “X” 

0332- ASC ‘’CAN’T CONTINU 
D33F- ASC "E* 

0340- ASC ’UNDEF’D FLUNCTI0O’ 
034F- ASC "N' 

D350- ASC ’ ERROR’ 

D3S6é- HEX 0700 

D358- ASC ‘’ IN 

035C- HEX 000D 


es 
NN ER 


Jean-François Rabasse 


D35E- ASC ‘BREAK 
0363- HEX 0700 


D365- BA TSX 

D366- ES INX 

0367- E8 INX 

0368- E8 INX 

0369- E8 INX 

036A- 80 01 01 LDA $0101,X 
D360- CF? 81 CMP #$s1 
D36F- D0 21 BNE 50392 


0371- AS 86 LDA 586 
0373- 00 OA BNE $037F 
0375- 80 02 D1 LDA $0102,X 
D3783- 85 85 STA 985 
037A- 80 03 01 LDA $0103,X 


D0370- 85 84 STA $86 
037F- DD 03 01 CMP $0103,X 
0382- 00 07 BNE 50388 
0384- AS 85 LDA #85 
D386- 00 02 01 CMP S0102.X 
D389- FO 87 BEQ s03%2 
0388- 8A TXA 

038C- 18 CLC 

0380- 49 12 ADC #s12 
038F- AA TAX 

0370- 00 08 BNE $036A 
D392- 60 RTS 


La syntaxe choisie pour le désassem- 
blage en ASCII est la syntaxe LISA, 
avec les options ASCII positif (bit de 
poids fort à O0 - ASC) ou négatif (bit 
de poids fort à 1 - ASC"). et passage 
en HEX pour les codes de contrôle. 


L'étape suivante consiste à remettre 

en forme la présentation des lignes 

pour obtenir une syntaxe assembleur 

“source”. puis à réaliser l'analyse du 

texte 

e rassembler les arguments. 

e créer les tables des variables (page 
0 et adresses 4 chiffres), 

e introduire des noms symboliques 
et éliminer toutes les adresses en 
tête 


C'est un travail typique de traitement 
de texte. c'est pourquoi on fait main- 
tenant appel à un module écrit en 
WPE (DSMSYMB) qui. à partir du fi- 
chier disque généré par DSMTEXT 
puis relu en Applewriter, donne le lis- 
ting suivant : 

INS 

PROGRAMME TEST 


TABLE PAGE 0 
286 EPZ $86 
Z85EPZ $85 


TABLE DES ADRESSES 
W0181 EQU $0101 
W0102 EQU $0102 
W0103 EQU 50103 


ORG $D31F 
OB $800 


LBD31F ASC FORMULA TOO C 





iai 





ASC'CAN'T CONTINU" 
ASC "E” 

ASC ‘UNDEF ‘D FUNCTIO' 
ASC “NN” 


ASC ‘ ER ROR' 
HEX 0700 
ASC: IN : 
HEX 000D 
ASC ‘BREAK : 
HEX 0700 
TSX 
INX 
INX 
INX 
INX 
LBD36A LDA WOIOLX 
CMP #$81 
BNE  LBD392 
LDA 286 
BNE LBD37F 
LDA WO102.X 
STA 285 
LDA WO0103.X 
STA 236 
LBD37F CMP W0103.X 
BNE  LBD38B 
LDA 285 
CMP WO0102.X 
BEQ  LBD392 
LBD38B TXA 
CLC 
ADC  #$12 
TAX 
BNE  LBD36A 
LBD392 RTS 
END 


Les noms symboliques sont créés ar- 
tificiellement en utlisant les chiffres 
de ladresse correspondante. précé- 
dés d'une lettre (indispensable pour 
l'entrée sous l'assembleur). La lettre 
est Z pour une variable page 0, W 
pour une variable à 4 chiffres hexa et 
LB pour une variable "Label" (point 
d'entrée dans la zone désassemblée),. 
Le programme DSMSYMB rajoute 
de plus tout ce qui est nécessaire à 
l'entrée sous LISA : accès à l'éditeur 
(INS), directives ORG et OBX]. fin de 
source END, et, invisible sur le listing 
mais néanmoins présent, le CTRL-E 
ermettant la sortie de l'éditeur. 

e fichier obtenu est un fichier 
TEXT, disponible sous Applewriter. 
On le transforme en source assem- 
bleur en tapant, à partir de LISA 
bien sûr. la commande CTRL-D 
EXEC "Nom du fichier”. 


Programme de 
désassemblage 
DSMTEXT 


Description 


Ce programme en Applesoit est 
assez court et découpé en petits 
sous-programmes. Son analyse ne 
devrait pas poser de problèmes. mais 
réclame quelques précisions : 


— Le programme. prévu pour 


coexister avec un code machine. 
peut être chargé n'importe où en 
RAM, par ajustement du pointeur 
“Début de Basic” Il détermine son 
adresse de chargement (ligne 2030) 
et positionne HIMEM de manière à 
occuper exactement 8000 octets tout 
compris (ligne 2045) Tout le reste 
de la RAM est protégé. 


— ]l désassemble en mnémoniques 
au moyen de la routine LIST du mo- 
niteur La routine complète désas- 
semblant par blocs de 20 instruc- 
tions. on utilise la sous-routine 
$F8D0 qui désassemble une instruc- 
tion à l'adresse PTR = $3A. et re- 
tourne la longueur (1, 2 ou 3 octets) 
à l'adresse LG = $2F (ligne 2040). 


— Pour afficher la valeur d'un octet 
en hexadécimal, on utilise la routine 
moniteur $FDDA (écriture en hexa 
du contenu de l'accumulateur), par 
l'intermédiaire d'une mini routine 
machine appelée PA On PORKE la 
valeur de l'octet à afficher dans une 
adresse “boîte à lettres” $06. et on 
appelle PA qui se résume à "LDA 
$06 - JMP $FDDA" Ce code de 5 
octets est POKé lors de l'initialisation 
dans la ligne Basic 1 (ligne À NE 
PAS MODIFIER OÙ SUPPRIMER) 


— Pour convertir en décimal les 
adresses hexa saisies au clavier, on 
utilise la technique dite ‘’du fainéant” 
consistant à ne pas refaire ce que le 
moniteur fait si bien Les adresses 
hexa. sous forme de variables chat- 
nes sont introduites aux adresses 
RAM 506 à $09 par la technique 
classique de S HLAM. (lignes 34 à 
38). Les adresses décimales sont ré- 
cupérées par des doubles PEEK 
L'inconvénient de cette méthode, par 
ailleurs très rapide à programmer, est 
que l’on ne teste pas la validité des 
symboles frappés (0 à 9 et À à F). Si 
vous entrez une chaîne qui n'est pas 
la représentation valide d'une 
adresse hexa, le moniteur proteste, 
fait BIP et vous abandonne “planté” 
sous moniteur. Pas de panique, faites 
CTRI-C, RETURN, GOTO 1000 
(surtout pas RUN), RETURN. et c'est 
repart sans perte d'informations, sauf 
votre dernière commande (la mau- 
vaise). 


— Enfin dernier point et peut-être le 
plus important. Apple Computer Inc, 
société sympathique au demeurant, 
n'a pas prévu que l'on ait envie 
d'utiliser simultanément la routine 
moniteur LIST et la routine RWTS 
du DOS. Ces deux routines ont en 
commun 4 adresses page 0. de $2C 
à $2F. Cela ne gêne pas RWTS qui 
utilise ces adresses pour des stocka- 
ges temporaires mais chaque appel 
au disque modifie les variables de 
LIST qui fait alors n'importe quoi. 
Comme LIST est en ROM on la 
laisse tranquille et on ‘déménage” 
les variables de RWTS des adresses 
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$2C à $2F aux adresses $FC à $FF 
(ligne 2065). Ceci impose d'ailleurs 
d'utiliser DSMTEXT avec un DOS 
tout à fait standard et non relodé. 
Comme chaque fois que l'on se 
trouve avec un DOS exotique en 
machine. il est préférable de suppii- 
mer la commande INIT (ligne 2070). 


Utilisation 


Pour une utilisation simple et rapide. 
le programme fonctionne avec un 
système de touches clés. donnant 
accès à des fonctions rappelées par 
un menu en haut d'écran. Lorsqu'on 
lance le programme. on se trouve en 
mode attente LIST donnant accès à 
4 commandes, C. E. X et W 


Listing d’une zone mémoire 


Frapper la touche C (sans RETURN), 
puis les adresses de début et de fin 
de la zone à lister, suivant la syntaxe 
classique du moniteur ADRI.ADR2 
(4 chiffres hexa obligatoires par 
adresse, séparés par un point). Frap- 
per ensuite une lettre : L pour désas- 
sembler par la routine moniteur, H 
pour lister en hexadécimal. À pour 
lister en ASCIL Terminer par RE- 
TURN. 


Le listing est exécuté à l'écran. On 
peut l'interrompre. puis le relancer à 
l'aide de la barre d'espace. On peut 
le terminer avant la fin par la touche 
Escape. 

Le programme demande ensuite si la 
commande doit être mémorisée. A 
vous de voir si le résultat vous satis- 
fait, le but étant de créer un petit fi- 
chier de commandes de désassem- 
blage successives. permettant de 
constituer un fichier source combi- 
nant l'analyse des zones de données 
(ASC ou HEX) et celles des instruc- 
tions de l’assembleur {voir l'exemple 
du Listing 2 présenté plus haut, ob- 
tenu par un fichier à 2 commandes). 
Le programme autorise jusqu'à 10 
commandes successives, ce qui 
s’avère suffisant pour traiter la majo- 
rité des cas. 

Le travail ainsi effectué, on retourne 
en mode attente LIST. 


Edition des commandes 


La frappe de E fait passer dans un 
mini éditeur qui récapitule les 
commandes de désassemblage (si 
vous en avez déja mémorisées, sinon 
un -E-est affiché}, et permet d'en 
supprimer (S). de modifier l'ordre 
des commandes (D), ou d'en éditer 
pour correction éventuelle (E). 

On quitte l'éditeur (Q). pour revenir 
en mode LIST. 


Exécution des commandes 


La frappe de X lance l'exécution à 
l'écran du  désassemblage, les 
commandes en mémoire étant exé- 
cutées en séquence. La barre d’es- 
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pace et Escape jouent le même rôle 
que dans l'exécution au coup par 
coup. À la fin, retour au mode LIST. 


Création du fichier disque 


Lorsque l'exécution de votre sé- 
quence de commandes fournit un ré- 
sultat conforme à vos voeux, la 
fappe de W démarre la création du 
fichier sur disque. Après avoir de- 
mandé le nom du fichier et les adres- 
ses de début du code machine, le 
programme relance un listing mais 
sur là disquette, puis revient en 
mode LIST. 

Attention, le programme ne de- 
mande pas de numéro de lecteur; si 
vous en possédez plusieurs, assurez- 
vous que le lecteur implicite contient 
la bonne disquette destination du fi- 
chier texte (celui-ci devant nécessai- 
rement se trouver sur un disque qui 
contient les deux programmes WPL 
DSMSYMB et DSMSYMB.2). 


Place en mémoire 


Comment disposer en RAM le code- 
machine à désassembler et le pro- 
gramme Applesoft DSMTEXT ? 

En général, il est plus pratique de 
charger le code-machine à son 
adresse réelle de fonctionnement. 
Ceci facilite la lecture des listings de 
désassemblage qui comportent beau- 
coup de sauts ou d'appels de sous- 
routines. Si le code est à une adresse 
supérieure à $2800, vous lancerez 
alors DSMTEXT par un simple RUN. 
Sinon, il vous faudra d’abord remon- 
ter le pointeur début de BASIC der- 
rière le code binaire. 

Il existe un certain nombre de cas où 
le code ne peut pas être lu à son 
adresse réelle de fonctionnement : 
programme machine qui ‘’toume” en 
caite langage, ou bien dans l'exten- 
sion RAM de la carte Text du //e, ou 
encore qui occupe la place habituelle 
du DOS. 

On devra alors charger le code ail- 
leurs. Le programme prévoit la possi- 
bilité de faire un décalage d'adresses, 
mais par remplacement du premier 
caractère hexa de l'adresse et non 
par calcul (WPL n'est pas réellement 
adapté pour effectuer des calculs en 
hexadécimal). Il est donc absolument 
indispensable de déplacer le code en 
conservant les trois chiffres bas de 
l'adresse. Le remplacement est effec- 
tué pour deux chiffres successifs : un 
programme fonctionnant à l'adresse 
$DO4A, pourra être chargé en RAM 
à $404A par exemple. toutes les 
adresses en $4xxx seront remplacées 
par $Dxxx et les adresses $5xxx par 
$Exxx. Ceci limite à 4k la taille des 
codes désassemblables. Cette restric- 
tion n'est pas gênante dans la me- 
sure où la limite pratique des codes, 
imposée par Applewriter. lui est infé- 
rieure. 
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Les adresses réelle et d'implantation 
du code-machine sont demandées 
par DSMTEXT au moment de créer 
le fichier texte (commande W). 


Programme de 
traitement DSMSYMB 


Une fois créé le fichier texte, ‘’reboo- 
tez” le système avec Applewriter // 
puis démarrez le programme WPL 
par la commande habituelle : CTRL- 
P puis DO DSMSYMB. Le pro- 
gramme vous demande le nom du fi- 
chier texte et vous pouvez enfin aller 
prendre un repos bien mérité, le 
reste du traitement étant automati- 
que. 





Lorsque le programme est terminé, 
le fichier texte définitif se trouve en 
mémoire Applewriter pour consulta- 
tion et sur le disque sous le nom du 
fichier original produit par DSMTEXT 


(ce fichier original est bien sûr 
perdu). Ce fichier est prêt’ à une en- 
trée sous LISA en mode EXEC. 

Une remarque: le programme 
DSMSYMB utilise deux fichiers tem- 
poraires nommés REF et PGO, qui 
sont supprimés du disque en fin de 
travail. Assurez-vous de ne pas utili- 
ser une disquette qui contient des 
programmes personnels portant un 
de ces deux noms, il leur arriverait 
malheur. 


Le programme WPL a dà être scindé 
en deux modules (DSMSYMB et 
DSMSYMB2), car Applewriter limite 
à 2K la zone réservée à WPL. Il 
n’appelle pas de commentaires parti- 
culiers, toutes les opérations successi- 
ves étant signalées par un message à 
l'écran (et, accessoirement, les mes- 
sages servent à documenter le lis- 
ting). 

L'opération la plus longue est la 
création des tables d'adresses (début 
du module 2). Pour un code impor- 
tant (2 à 3K) l'opération peut pren- 
dre d’une demi-heure à plus d’une 
heure (c'est l’occasion où jamais de 
profiter du beau temps...) 


Bilan de l’opération 


Le produit final est comme on l'a 
montré dans le petit exemple de dé- 


part, un pseudo programme source. 
Sur le plan de la syntaxe, il est prêt à 
être exploité sous assembleur. On 
peut, si on le désire, profiter de ce 
que le fichier est encore en rnémoire 
sous Applewriter. pour remplacer les 
noms symboliques générés par 
DSMSYMB par des noms plus expli- 
cites On consultera les tables 
d'adresses créées et une documenta- 
tion sur les routines système et leur 
appellation standard. On utilisera 
alors la fonction ”’recherche et rem- 
placement” d'Applewriter. Par exem- 
ple : <CTRL-F> ’WEDIB/KEYIN/A 
ou bien 

<CTRL-F>/WFDED/COUT/ 

A etc... 

Ne pas oublier de sauvegarder alors 
le fichier modifié avant de ”booter'’ 
LISA. 


La taille maximale des codes désas- 
semblables est fonction de la capacité 
mémoire de votre système sous Ap- 
plewriter (environ 27K sur un Apple 
le, où Apple Il+ avec carte langage, 
environ 47K sur un //e avec carte 80 
colonnes étendue). 

La routine LIST du moniteur génère 
en moyenne 30 caractères par ligne 
d'instruction, Une instruction corres- 
pondant à 1, 2 ou 3 octets, comptez 
un rapport 15 entre la taille du code 
machine et celle du fichier texte, un 
peu moins si le code comporte beau- 
coup de tables et zones de données. 


Îl est important de signaler un gros 
point faible de ce logiciel de désas- 
semblage : il ne sait pas traiter 
complètement les adressages immé- 
diats. 

Soit par exemple le code machine 
"A9 41”. Ce code sera désassemblé 
par LDA #$41 mais quelle est l’ins- 
tructon source originale ? On peut 
proposer : 

e LDA #$41 

e LDA #'A 

e LDA #TOTO si TOTO=$6041 

e LDA LULU si LULU=$41FF 

Les ”’matheux” diront qu'il n'y a pas 
bijection du programme source sur le 
code objet. 


En pratique on devra donc être at- 
tentif à la signification des adressages 
immédiats. Dans l'ensemble le désas- 
semblage sera correct, mais dans des 
cas tels qu’un code utilisant une table 
de données, avec des instructions as- 
sembleur du type "LDA #TABLE - 
LDY /TABLE”, le désassemblage en 
arguments immédiat perd sa signifi- 
cation et le nouveau code objet ne 
fonctionnera plus si l’on décale les 
adresses du programme source. Il 
sera alors nécessaire de retoucher les 
instructions source pour réintroduire 
un nom symbolique. 


En conclusion, si ce logiciel peut dé- 
charger le programmeur (patient) de 
là partie “bestiale” du travail de dé- 
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sassemblage, il ne dispense pas. heu- 
reusement, de réfléchir et de 
comprendre comment fonctionne le 
code que l’on est en train de traiter, 
avant de le modifier. 


Note aux lecteurs qui souhaitent 
utiliser le programme et ne pos- 
séèdent pas la disquette d’accom- 
pagnement 


Pour entrer le programme Applesoft 
d’après le listing, pas de problèmes, 
mais quelques indications peuvent 
être utiles pour le WPL (à entrer 
sous Applewriter) 


1) ATTENTION à la frappe! WPL 
ne supporte pas les ”’typos’” approxi- 
matives et, en général, une erreur de 
frappe se traduit, non par un mes- 
sage sympathique tel que SYNTAX 
ERROR à tel endroit, mais par 
"rien du tout”. Le programme sem- 
ble fonctionner et. à la fin, le résultat 
est totalement "farfelu”. Ce type de 
BUG est pénible à traquer. 

Attention aussi à ne pas oublier le 
blanc initial des lignes instructions. 
Seules les lignes portant une éti- 
quette commencent en colonne 1. 


2) Un certain nombre d'instructions 
effectuent des recherches et rempla- 
cements sur des chaînes comporttant 
un nombre précis de Blancs (Es- 
pace). Il n’est pas toujours évident de 
compter des blancs sur un listing et, 
afin de permettre une frappe cor- 
recte, ce dernier comporte un certain 
nombre de lignes de commentaire 
composées de points : P …. . 

Ces lignes signalent le nombre et la 
position des blancs dans l'instruction 
immédiatement suivante. 


1LIST:DSM.TEXT 


1 REM #34 
2 GOSUB 2095: GOTO 1015 
10 REM 


3) Quelques instructions comportent 
des caractères de contrôle, à frapper 
avec la procédure CTRL-V.CTRL- 
xCTRL-V. Comme ces caractères 
n'apparaissent pas au listing. voici les 
lignes qui en comportent. le caractère 
étant représenté par (CTRL-x). Ces 8 
caractères seront à remplacer par 1 
caractère contrôle. 

X1 PPR(CTRL-L) 

X3 F##END'%(CTRL-E)%# 

X4 PPR(CTRL-L) 

X15 SSD#(CTRL-E)%# 

X18 PPR(CTRL-G)CTRL-G) 


Note aux lecteurs qui utilisent 
un autre assembleur que LISA 
2.5 


On récapitule ici tous les symboles et 
directives utilisés et destinés à LISA, 
avec les lignes de programme où ils 
apparaissent. Ceux qui ont un autre 
assembleur vérifieront la syntaxe et 
feront les remplacements éventuels 
(le remplacement doit étre fait avec 
beaucoup de rigueur, sans introduire 
de caractères blancs supplémentaires 
et sans en supprimer). 

La directive ou le symbole sont pré- 
sentés entre crochets |... ], avec les 
blancs nécessaires. 


e [ HEX ] Assemblage d'une zone 

en hexadécimal 

Dans DSMTEXT ligne 2060 

Dans DSMSYMB ligne X2 

e [ ASC ] Assemblage d'une zore 

en ASCII 

Dans DSMTEXT ligne 2060 

e [’} Encadre une définition ASC 
se ne en ASCII négatif (Bit 
7à1 





Ce caractère est défini par 

CHR$(34). dans DSMTEXT lignes 

2055 et 2060. 

e [’] Encadre une définition ASC 
ee en ASCII positif (Bit 7 
à O0) 


CHR$(39) dans DSMTEXT lignes 
2055 et 2060. 
e [INS] Entrée dans l'éditeur de 


LISA (en mode EXEC) 

Dans DSMSYMB 2 ligne X16 

e [| ORG $] Origine du programme 
à assembler 

Dans DSMSYMB 2 ligne X17 

e [ OBJ $800] Origine du code 
objet en machine 

Dans DSMSYMB 2 ligne X17 

e [ END] Fin du programme source 

Dans DSMSYMB ligne X3 

e [(CTRL E)] Sortie de l'éditeur de 
LISA 

Dans DSMSYMB ligne X3 

Dans DSMSYMB 2 ligne X15 

e [| EQU $] Affectation 
adresse hexa à une variable 

Dans DSMSYMB2 ligne X6 

e [ EPZ $] Affectation d'une adresse 
page 0 à une variable 

Dans DSMSYMB2 ligne X11 

e [;] Début d'une ligne commen- 
taire. Ce symbole est destiné à 
LISA mais est aussi utilisé abon- 
damment comme marqueur par 
DSMSYMB. Si votre assembleur 
utilise un autre symbole commen- 
taire (étoile ou petit Mickey), faites 
bien les remplacements partout : 

Dans DSMSYMB2 lignes XS, X7. 

X8, X9, X10, X12, X13. X14. X16 

(2 fois), X17 (2 fois) 


d'une 


42 REM NOUVELLE LIGNE DE DESASS. 


44 DEB = O:CP = 0: 
; 


GOSUB 14: PRINT M$(FS) 


: RETURN 


50 REM 


52 REM DES. EN HEXA 


12 REM AFFICHAGE D’UNE ADRESSE HEXA S4 DEB = 1:FS = 1: FOR AD = AIÇIC> TO A2 
14 PRINT : POKE 6, FN HI(AD): CALL PA: P IC) 

OKE 6, FN LO<AD): CALL Pâ: PRINT * Sé IF DEB THEN GOSUB 44 

-* 3: RETURN 953 POKE 4, PEEK (CAD): CALL PA:CP = CP + 
20 REM 1: IF CP = 12 THEN DEB = 1: PRINT 
22 REM DESASSEMBLE DES ADRESSES A1 À A2 CLS<FS); 
24 FOR AD = AI(IC) TO AZIC): POKE PTR, 60 GOSUB 305: NEXT : PRINT CLS#(FS);: RET 

FN LO(CAD): POKE PTR + £, FN HI(AD) URN 

: CALL LI:AD = AD + PEEK (LG): GO 100 REM 

SUB 305: NEXT : RETURN 105 REM TEST CARACTERE 
30 REM 110 K = PEEK (AD): ON K / 32 + i GOTO 52 
32 REM CONVERSION DECIMALE DES ADRESSES 0,125,125,125,120 

DE LA COMMANDE NS 115 FO = 2: RETURN 
34 B$ = "O6:" + MIDS CNSCIC),3,22 + * * 120 FO = 1: RETURN 

+ :MIDS ENS CIE) 429" FOR MTDS 125 FO = 3: RETURN 

(NSCIC),8,2) + " " + MIDS CNSCIC 200 REM 

),6,2) + “ N D9C6G" 205 REM DESASS. EN ASCII 
36 FOR 1 = 1 TO LEN (B$): POKE S1$ + 1, 210 AD = AISIC): GOSUB 105:FS = FO: GOSUB 

ASC © MIDS CB$,1,1)> + 128: NEXT 44 

: POKE 71,0: CALL - 144 215 FOR AD = AI(IC) TG AZIC): GOSUB 105 
38 A1CIC) = FN DP(6):A2CIC) = FN DPK8): 220 IF FO < > FS THEN DEB = 1: PRINT CL 

RETURN &(FS);:FS = FO: GOSUB 44 
40 REM 225 IF DEB THEN PRINT CL$(FS):: GOSUB 4 
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4 700 PRINT CHRS (4) :;"WRITE":NAS 
239 ON FS GOTO 235,240,240 705 FOR IC = 0 TO IM: GOSUB 405: NEXT 
235 POKE 6, PEEK (AD): CALL PA: GOTO 245 710 PRINT 
240 PRINT CHRS (K + CFS - 3) *x 128); 715 IF NOT WR THEN 1015 
245 CP = CP + 1: IF CP = 12 + 12 x INT € 720 PRINT CHRS& (4; ;"CLOSE" 
FS / 2) THEN DEB = ! 725 WR = 0 
250 GOSUB 305: NEXT : PRINT CL$(FS);: RE 1000 REM 
TURN 1005 REM PROGRAMME PRINCIPAL 
300 REM 1010 REM 
305 REM PAUSE 1015 GET NS(JC)D: PRINT NS(JC);: IF NSCJC 
310 IF WR THEN RETURN ) € > “C“ THEN PRINT :IC = JC: G 
315 IF PEEK (49152) = 155 THEN POKE 49 OSUB 405: GOTO 1035 
168,0:AD = A2(IC):IC = IM: RETURN 1020 IF JC = 10 THEN PRINT : PRINT CHR 
320 IF PEEK (49152) < > 160 THEN RETU $ (7); CHRS (7);" PLUS DE PLACE ‘ 
RN *: GOTO 1015 
325 POKE 49168 ,0 1025 INPUT ""3NSCJCO)D:IC = JC 
330 IF PEEK (49152) = 160 THEN POKE 49 1030 GOSUB 405: PRINT : PRINT 
168,0: RETURN 19035 PRINT “COMMANDE ° ;N$SCJC) ;" À CONSE 
335 IF PEEK (49152) = 155 THEN 315 RUER 7? ON "5: GET TS: PRINT TS 
AO ÉDTOT A0 1049 IF T$ = “O" THEN IM = JC:JC = JC + 
400 REM 1 
405 REM ANALYSE DE LA COMMANDE 1045 IF JC = 9 THEN PRINT CHRS (7); "AT 
410 C#CIC) = RIGHTS (NSCIC),19: IF N8CIC TENTION,DERNIERE COMMANDE *: PRINT 
) = “W® AND IM= 3) O THEN POP : " AVANT ECRITURE OÙ FICHIER ‘" 
GOTO 605 : PRINT 
415 IF NSCIC) = "E* THEN POP : GOTO 300 1050 GOTO 1015 
0 2000 REM INITIALISATION 
420 IF NSCIC) = “X“ AND IM = } 0 THEN 2005 IM= - 1 
POP : GOTO 705 2010 DIM N#&(11) 
425 IF LEN (NSCIC)> € > 10 OR MIDS (N 2015 DEF FN HICX) = INT €X / 256): REM 
$(1C),5,1) > "." THEN 450 PARTIE HAUTE ADRESSE 
430 GOSUB 32 2020 DEF FN LOCX) = X - 256 x FN HI(X) 
435 IF CIC) = "L" THEN 22 : REM PARTIE BASSE 
440 IF CS(IC) = "H" THEN 52 2025 DEF FN DPCX) = PEEK (X) + 256 * 
445 IF C8(IC) = "A" THEN 205 PEEK (X + 12: REM DOUBLE PEEK 
450 PRINT 2030 PA = FN DP(103) + 5: REM CODE MACH 
455 PRINT CHRS (4) ;"CLOSE" INE POUR SORTIE CONTENU DE $06 EN 
469 PRINT CHRS (7) ; "COMMANDE “":N&CIC);" HEXA F 
INCORRECTE '“: POP : GOTO 1015 2035 POKE PA,165: POKE PA + 1,6: POKE PA fa 
600 REM + 2,76: POKE PA + 3,218: POKE PA 1 
605 REM CREATION DU FICHIER TEXTE FT EenS É La 
610 HOME : PRINT "CREATION DU FICHIER TE 2040 PTR = SB:LG = 47:LI = 63696: REM DE M 
XTE": PRINT SASSEMBLE 1 INSTRUCTION hi 
615 INPUT "NOM OÙ FICHIER ? ";NAS: IF NA 2045 HIMEM: ©A + 7995 | 
$ = "* THEN 1015 2050 REM  FORMATS ,MNEMONI QUES i4 
620 PRINT : PRINT "ADRESSE ORIGINE VRAIE 2055 CLSC1) = " ":CLS8(2) = CHRS (34) + 
OU CODE MACHINE ?°: PRINT “C4 CHI CLSC1D):CLB(3) = CHRS 439) + CLS | 
FFRES HEXA) $";: INPUT "":0 1 
Gs 2060 M#8(1) = “ HEX ":M$(2) = " ASC " 
625 PRINT : PRINT "IMPLANTATION ? (OU RE + CHRS (34):M$€3) = * ASC * + 
TURN SI LA MEME)": PRINT "C4 CHIFF CHRS (39) 
RES HEXA) $";: INPUT "3,088 2065 POKE 47489,252: POKE 48687,253: POK 
630 IF 08$ = "" THEN OBS = 06% E 48881,253: POKE 48975,253: POKE 
635 IF RIGHTS (0G$%.3) > RIGHTS (OBS 49915,253: POKE 49033,253: POKE 48 
53) THEN PRINT CHR& 7); CHRS «7 622,254: POKE 48662,255: POKE 4867 
>: PRINT "SEUL LE PREMIER CHIFFRE 1,255: REM MODIF RUTS 
GOTO 1015 2075 TEXT : HOME :T$ = "ADRI.ADR2" 
640 B$ = LEFTS (O0B#,1):6$ = LEFTS (OGS$, 2080 INVERSE : PRINT " "3: HTAB 
1) j 12: PRINT “"C":: NORMAL : PRINT TS; 
645 TS = "<A1)>" + 88 + "<R1D" + GS t INUVERSE : PRINT "L'"';: NORMAL : P 
650 IF 85 = "9" THEN 8B$ = "3" RINT “ ...DESASSEMBLAGE" 
655 IF G$ = "9" THEN G$ = "3" 2085 INVERSE : PRINT " DSMTEXT “;: HTAB 
660 T$ = TS + "(A2)" + CHRS (1 + ASC (8 12: PRINT “C";: NORMAL : PRINT TS: 
BD) + "CR2)" + CHRS (1 + ASC (GS : INVERSE : PRINT "H“;: NORMAL : P 
3) + "< ORG 8" + 068$ RIT " ...LISTE EN HEXA" 
665 PRINT CHRS (4); "OPEN "3;NAS :".ADRS" 2090 INVERSE : PRINT " "33 HTAB 
670 PRINT CHRS (4) ;"WRITE “3;NAS; ".ADRS" 12: PRINT "C':: NORMAL : PRINT TS: 
675 PRINT TS : INVERSE : PRINT "A“":: NORMAL : P 
680 UR = 1 RINT “ ..LISTE EN ASCII" 
685 PRINT CHRS& (4) ;"OPEN" :NAS 2095 INVERSE : PRINT " LIST  “;: HTAB 
690 PRINT CHR& (4) :"DELETE" ;NAS 12: PRINT "E";: NORMAL : PRINT * 
695 PRINT CHRS& (4) :"OPEN":NAS$ .....EDITEUR DE COMMANDES" 





SR 
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2100 INVERSE : PRINT " “s: MHMTAB 3065 IF C$ = “S" THEN 3095 
12: PRINT "“X":: NORMAL : PRINT * . 3070 IF C$ = "DO" THEN 3110 
......EXECUTION À L'ECRAN" 3075 IF C$ > "“E" THEN PRINT CHR$ (7 
2105 INVERSE : PRINT ” *:: HTAB >): GOTO 3050 
12: PRINT "W°;: NORMAL : PRINT * , 3080 PRINT "EDITER NO ? *:: GET Cæ: GOSU 
..ECRITURE FICHIER DISQUE* B 3155: PRINT C$: GOSUB 3145 
2VLOT PRINT M0 L'on L'EFPrrrepeeesr=se 3085 ON ER GOTO 3080,3090 
SeRssres-e * 3090 HTAB 1: PRINT "?"3;:NSC VAL <CS)):;: H 
2115 POKE 34,7: RETURN TAB 2: INPUT ""3N$C VAL (CH)): GOT 
3000 REM O0 3040 
3005 REM EDITEUR DES COMMANDES 3095 PRINT “SUPPRIMER NO ? ";: GET C$: G 
3010 TEXT : HOME OSUB 3155: PRINT C$: GOSUB 3165 
3015 INVERSE PRINT " “s: HTAB 3100 (ON ER GOTO 3095,3105 
12: PRINT "S“;: NORMAL : PRINT “UP 3105 FOR IC = VAL (CS) TO IM - t:NSCIC) 
PRIMER UNE COMMANDE" z N$SCIC + 1): NEXT :IM = IM = 1:J 
3020 INVERSE : PRINT *“ DSMTEXT “;: HTAB C = JC —- 1: GOTO 3040 
12: PRINT "D";: NORMAL : PRINT “EP 3110 PRINT "DEPLACER NO ? ";: GET C$: GO 
LACER UNE COMMANDE" SUB 3155: PRINT C$:10 = VAL (CS): 
3025 INVERSE PRINT “ EDITEUR ”;: HTAB GOSUB 3145 
12: PRINT “E'”:: NORMAL PRINT "DOI 3115 ON ER GOTO 3110,3120 
TER UNE COMMANDE” 3120 PRINT “DESTINATION NO ? *";: GET C$: 
3030 INVERSE : PRINT * ‘2: HTAB GOSUB 3155: PRINT Ch:1D = VAL (CC 
12: PRINT "GQ";: NORMAL : PRINT "UI $): GOSUB 3165 
TTER L'‘EDITEUR" 3125 ON ER GOTO 3120,3130 
3035 HTAB 12: PRINT "---—— 3130 K2$ = N$SCIO) :NSCIO) = N$S<ID) :NSCID) 
__—" = K2$: GOTO 3040 
3040 POKE 34,6: HOME 3155 IF C$ = "Q" THEN GOSUB 2075: POP : 
3045 FOR IC = O0 TO IM: PRINT IC:" -":;:NS GOTO 1015 
CICD):"—-": NEXT 3160 RETURN 
3050 POKE 34,20: HOME 3165 ER = 2: IF CH > STR$S {IM) OR CS « " 
3055 GET C$ 0“ THEN ER = 1: PRINT CHR$ {7) 
3060 GOSUB 3155 3170 RETURN 
PND a? 
Xi PPR PPR-0K 
PPR PROGRAMME DSMSYMB PPR RECALAGE DES ADRESSES 
[x PPR SR EE P LECTURE 
— PPR JF-R AOÛT 84 PASSD.ADRS=$SC 
pu PPR PLSSC/A12/ </N=SA 
Le PPR PLSSC/RI1>/</N=SB 
Le PPR PCS/$sA/58/ 
fe) PPR PGOFPREP 
Un | PPR MODULE  OSMSYMB NO 1 : PREPARATI PSRRC 
me ON PASSD.ADRS=$C 
va. PPR PLSSC/A2)/ </N=SA 
F PPR PLSSC/R2)/</N=S$B 
4 PPR PSRRC 
k PIN NOM DÙ FICHIER ? =$0 PGOFPREP 
: PPR CHARGEMENT RC B 
| NO P RECALAGE DES INSTRUCTIONS 
= L$D FH<SANZ SEA 
B P 
PPR P RÊCALAGE DES BRANCHEMENTS 
PPR-0K PASBCC=$C 
PPR RECHERCHE DES 7??? PSRRECMN 
B PASBCS= $C 
P és bad gray PSRRECMN 
AOP2 F#-  &k& 22? 4h PASBUS=SC 
? PSRRECMNI 
PGOX2 PASBUC=SC 
PGOFOP2 PSRRECMN 
P se. Res PASBNE=SC . 
X2 F/- /- HEX/ PSRRECMNY 
a? PASBEG= $C 
PE dorseets , PSRRECMN 
F7 PP? y PASEMI=SC 
0? PSRRECMN 
PGDOADP2 PASBPL=S$C 
FOP2 PPR-0K PSRRECMN 
PPR ELIM. DES CODES HEXA PRT 
AOP3 B RECMN 8 
PATES, Sr P te ain 
FH  && H- #a F/$C  $S$A/SC #58/A 
PGOAOP3 P 
€ PRT 
D FPREP PPR 
X3 F#W ENDZ4 PPR-0K 
Pom's n° 16 


S$D 

PPR 

PPR RECHERCHE DES ARGUMENTS 
NO 


FHHZH 
0? 

PPR 

PPR — MARQUAGE 
F/$/W/A 

PPR - ADRS IMMEDIAT 


B 
F<H=><<A 
P 
PPR  — ELIM. DES SYMBOLES D'ADRESSAGE 
B 
F/U/A 
P 
B 
F/)//A 
P 
B 
F/,//A 
P 
B 
F/X//A 
P 
B 
F/Y//A 
P 
AOPS B 
FHZAHZHA 
PGOASPS 


SREF 

PPR 

PPR-OK 

PPR SAUVEGARDE ARGLMENTS PAGE 9 
B 

FHUE&E ERA 

p 


B 

F/W/2/A 

P 

SPG0 

PPR 

PPR-OK 

PPR SAUVEGARDE REFERENCES 

NO 

LREF 

B 

FHUB&EZH HA 

P 

PPR 

PPR-OK 

PPR 

PPR PREPARATION TERMINEE 
PPR 

PPR CHARGEMENT DU MODULE DSMSYMB.2 
PDODSMSYMB. 2 


X4 PPR 
PPR 
PPR DSMSYMB. 2 
PPR 
PPR CREATION TABLE DES ADRESSES 
PPR 
PPR 
E 
D 
F<<WFIN>< 
0? 
E 
L$D 
E 
D 
XS FC); TABLE DES ADRESSES >< 
0? 
P 
PAS$0 .ADRS=$C 
PLS$SCHORG SH AHN= SA 
PASSA=SB 
PGOADI 


STR PPR 
B 
PLSHOW<><N= SA 
F<WSA> < A 
PCS/SA/FIN/ 
PGOFINI 
AD1 PPR$SSA 
5 
P ie 
FOSA-  OLBSA<A 
PGOREF INT 
B 
F/$$5A/WSA/A 
p 
E 
D 
X6é F<WBSA EQU S5$A2>< 
0? 
PGOSTR 
PPR 
P LABELS INTERNES 
REFINT 8 
F/S$S$SA/LBS$SA/A 
p 
PGOSTR 
FINI B 
P on. Dlednse 
FH&&&E— HA #A 
p 
PPR 
PPR-OK 
PPR SAUVEGARDE TABLE ADRESSES 
E 
D 
X? FHH;:4# 
0? 
8 
X8 F/;TAB/ 
D 
X9 SREF#;ZH 
PPR 
PPR-0K 
PPR CREATION TABLE PAGE 0 
8 
LPGO 
F<<ZFIND< 
0? 
E 
D 
X19 F<<2: TABLE PAGE 02€ 
0? 


P 
8 
Pets. due 
F/ H$/ 32/A 
p 

STRO PPR 
8 
PLSHC)ZC)<N=SA 
F<zSA}<<A 
PCS/SA/FIN/ 
PGOFINIO 
PPR$SA 
B 
F/$$A/Z3A/A 
P 
E 
D 

X11 F<628A EPZ $3A>< 
0? 
PGOSTRO 

FINIB B 
Prier: os 

F/ 92/  #8/A 
P 

PPR 
PPR-0K 
PPR SAUVEGARDE 
E 

D 

X12 FH##;Xh 

a? 
B 


X13 F/3;TABLE P/ 
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? 
X14 SPGO#;74 


€ 


D 
B X17 F#4:% ORG 585B/ 08J 5800%;/h 
FHAZAHH 0? 
07? L$0 
X1S3 S$0H## PPR 
PPR PPR ET SAUVEGARDE 
PPR-OK SsD 
PPR MISE EN FORME DU FICHIER FINAL OFREF 
NO FPG0 
B F$C 
X16 FANINSZ; PROGRAMME S07Z:7Zh 2 
0? B 
LPGO X18 PPR 
LREF PAT 





Les codes ASCII du //e 


Guy d'Herbemont 


J'ai été intéressé par le programme 
"GESMASK modifié” publié dans 
Pom's 14, et brusquement interloqué 
en constatant qu'il m'était impossible 
de sauver le moindre masque par ia 
commande CTRL - SHIFT - P. pour- 
tant prévue à cet effet. 


En examinant le programme source 
en assembleur, j'ai constaté. à la 
ligne 82, que l'accès à la sauvegarde 
du masque résultait de la frappe 
d'une touche, ou séquence de tou- 
ches, ayant pour code clavier $80. 
J'en ai déduit que les auteurs du 
programme concerné utilisaient un 
Apple 11+, sur lequel la frappe de 
CTRL - SHIFT - P, ou encore 
"CTRL - arrobas”, correspond eflec- 
tivement à la frappe du caractère 
”’nul” dont le code clavier est $80. 

Malheureusement, sur un Apple //e, 
il n'en va pas de même. La frappe 
de CTRL - SHIFT - P est équivalente 
à celle de CTRL - P et retourne $90 
pour code clavier. On comprend 


se soit avérée désespérément infruc- 
tueuse. 


Considérant en outre que le //e pos- 
sède un double clavier AZERTY / 
QWERTY, j'ai voulu vous proposer 
un petit programme très simple per. 
mettant de lister les codes de toutes 
les touches du //e, dans l'un et l’au- 
tre cas. afin de rendre service aux 
utilisateurs qui pourraient se trouver 
confrontés comme moi à ce pro- 
blème de différences de codes. 

Pour en revenir au cas de GES- 
MASK. il apparaît ainsi que, sur le 
le. c'est "CTRL - à” {ou encore 
"CTRL - 0”) qu'il faut taper pour 
obtenir $80 si l'on est en AZERTY, 
et "CTRL - 2” {ou ”CTRE - SHIFT - 
2”} pour le même résultat si l'on est 
en QWERTY. 


L'utlisation du programme est sim- 
ple : il suffit de taper sur toutes les 
touches de chaque rangée dans les 
différents cas possibles (normal, ma- 


une fois avec le clavier en mode 
AZERTY et une seconde fois en 
mode QWERTY. 


La version listée ci-dessous vous 
donnera un tableau des codes en 
ASCII positif décimal (tous inférieurs 
à 128), correspondant aux valeurs 
que vous retournerait la fonction 
ASC si elle fonctionnait correctement 


pour toutes les touches. 


Pour ceux qui s'intéressent plutôt 

aux codes écrans négatifs exprimés 

en hexadécimal (valeurs que l'on 

teste en assembleur en sortie d'une 

routine de saisie de caractères, 

comme dans le cas de GESMASK), 

les petites adaptations suivantes per- 

mettront d’obtenir le tableau souhaité 

de la même façon : 

e Saisir et sauver sur disquette la 
petite routine machine ASCILO 

e Rajouter une ligne 75 PRINT 
CHR (4) ” BLOAD ASCILO 

e Remplacer la ligne 210 par ”’210 








alors que la comparaison avec $80 juscules, CTRL et CTRL + SHIFT), SALE«7e E 
ILOËD ASCII .HERBEMONT 50 PRINT "RANGEE CTRL ";:iN = 13: GOSUB 2 
1LIST 00 
60 PRINT *RANGEE X : ";s:N = Li: GOSUS 2 

1 REM TABLEAU DES COSES CLAVIER 00 
A er TR Rat ES. 70 PRINT "RANGEE ESP: "i:N = 5: GOSUS 20 
40 TEXT : HOME : PRINT CHR$ C4)"“PR#1" 0 * 
15 PRINT : PRINT SPC 10)>"CODES CLAVIER | 890 RETURN 

AZERTY": GOSUR 20 200 FOR 1 = 1 TON 
16 PRINT PRINT SPC 10)"CODES CLAVIER 210 GET À$: PRINT PEEK (47152)" *; 

QWUERTY": GOSUS 20 220 NEXT : PRINT : RETURN 

17 PRINT CHR& (4)"PR#0": END 
2 PRINT "NORMAL": GOSUB 30 
21 PRINT "SHIFT": GOSUR 30 
22 PRINT "CTRL"': GOSUB 20 
23 PRINT "SHIFT+-CTRL'": 6OSUS 30 
24 RETURN 
30 PRINT “RANGEE ESC: ";:N = 14: G6SLE Z *300.38B 

00 
40 PRINT "RANGEE TAR: ";:N = 14: GOSUR 2 0300- 20 OC F8 20 Où FD À9 A5 

00 0308- 20 ED FD 40 


52 
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STARTUP et 


La gestion de directory sous PAS- 
CAL UCSD permet, entre autres 
avantages, de dater les versions de fi- 
chiers automatiquement. Mais cette 
date ne sera correcte que si l'utifisa- 
teur prend systématiquement la 
peine de mettre à jour la date sys- 
tème en ‘bootant”. Or cette opéra- 
tion ne peut se faire normalement 
que par l'option D(ate du FILER. 
Malheureusement, 9 fois sur 10, on 
néglige de le faire, et au bout de 
quelques temps. on ne se souvient 
plus de la chronologie des versions 
de programmes. 


Il est pourtant assez simple d'écrire 
un petit programme possédant les 
fonctions suivantes : 


— Saïsie rapide de la date : rentrer 
uniquement le jour si le mois est in- 
changé. 

— Vérification de celle-ci. 

— Enregistrement de la nouvelle date 
sur la disquette {pour le prochain 
"boot”’) et en mémoire pour qu'elle 
soit utilisée dans la directory. 


De plus si on appelle ce programme 
SYSTEMSTARTUP, il sera exécuté 
à chaque “boot”, ce qui pennet 
d'avoir une date système toujours … 
à jour. 

Les bonnes adresses 


Deux endroits nous intéressent: 
— la position de la date système sur 


saisie de la date en Pascal 


la disquette: 
— la position de cette même date en 
mémoire. 


Pour la première, on peut se repor- 
ter, entre autres, à l’article de M. Cxi- 
mont "Un catalogue généralisé en 
Pascal” paru dans le numéro 2 de 
Pom's. Pour ceux d’entre vous qui 
n'auraient pas ce numéro, rappelons 
que la directory d'un disque PAS- 
CAL occupe les blocs 2 à 5 inclus et 
est structurée comme indiqué dans le 
listing 1 donné en fin d’article. 


Etant donné que seul le premier bloc 
nous intéresse, nous utiliserons une 
variable d'un type légèrement diffé- 
rent de RÉPERTOIRE dans le pro- 
gramme. Le type REPERT n'a de 
description précise que pour l’en- 
tête, le complément à la taille du 
bloc étant occupé par un ARRAY de 
243 octets. En effet, le champ DIS- 
QUE occupe 26 octets, il en reste 
donc 486 dans le bloc, ce qui corres- 
pond à la place occupée par notre 
tableau. Pour lire (respectivement 
écrire) ce bloc, il suffit d'utiliser la 
fonction UNITREAD (respectivement 
UNITWRITE). 


Pour ce qui est de la position en mé- 
moire, elle varie selon les versions du 


système : 
— version 10: $A912, $A913 


(—-22254, —22253), 


Eric Pascual 


— version 1.1: $AAI8, $AA19 


(—-21992, -21991). 


Le programme 


Il va lire le répeitoire sur le disque, 
affiche la dernière date enregistrée, 
demande la nouvelle date (en refu- 
sant les entrées incorrectes), puis 
l'enregistre dans le répertoire du dis- 
que et en mémoire aux adresses ci- 
dessus. 


Le listing du programme étant abon- 
damment commenté, il est inutile de 
reprendre ici sa description détaillée. 
Pour le lancer automatiquement lors 
du boot”, il suffit de le stocker sur 
la disquette APPLE1: et de l'appeler 
SYSTEMSTARTUP. 


Pour finir, voici un complément de 
bibliographie sur PASCAL UCSD 
pour Apple //: 

— Gestion de fichiers et de périphéri- 
ques pour Apple // en Pascal, de 
Hervé Haut {Editions de PS). 

— Le système Pascal UCSD (tomes 
1 et 2), de Thierry Chamoret (Edi- 
TEST). 

Ces deux ouvrages sont particulière- 
ment intéressant et fort bien faits. 
On y apprend énormément de 
choses. Merci à leurs auteurs. 





REPERTOIRE = record 


DISQUE: ENTETE; 
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FICHIER: array ‘1..77! of DESCRFIC 
end; 
avec 
ENTETE = record 
unusedi s:integer; (*x inutilisé *) 
PREBLOC sinteger; (% num ler bloc utilisable *) 
unused2 :integer; (x inutilisé #) 
NOM :string'7!; C*x nom du disque #) 
NBBLOCS :integer; (x nombre de biocs du disq.+#) 
NBFICHIERS ‘integer; (*x nombre de fichiers *) 
unused3 :integer; (#x inutilisé #*) 
DATESYS :date; (x date système #) 
unused4 ‘integer; (*x inutilisé *) 
unuseds :integer; (x inutilisé #) 
end; 
DATE = packed record 
MOIS sels 
JOUR Mesa 
ANNEE :1,,99 
end; 
ER 
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SM A Fr 


Programme STARTUP 


Assure 


les fonctions suivantes: 
— lecture dans le repertoire de 


la 


Version du 05/07/84 


deniere date de boot 


— affichage du message de bienvenue. 


— saisie date du jour et enregistrement sui 


en memoire 


program startup: 
const volume =4; { Numero d 
adrdate =-21992; { Adresse 
€ (2225 
t>pe date =packed record 
mois :1..12; 
jour CA SRE D ES 
annee :0..99$ 
end; 
memdate =recoi-d case boolesn o*f { po 
true :datesys :"date); € en 
false :(adresse :integer) < "PF 
end; € PG 
entete =record 
extfuti sinteger; < 
prebloc :integer; € 
catdis sinteger; € 
nom s:stringl7l; € 
blocs sinteger; { 
nbfichiers ‘integer; Le 
extfut2 sinteger; Ç 
datesys :date; Le 
extfuts3 sinteger; € 
extfuts :integer Le 
end; 
repert =record 
header sentete; 
filler sarrayii..2431 of 
{ pour completer le record a S12 
end; 
var mm j aa smemdate; 
wdate ‘date; 
rep :repert; 
change :boolean; 
= —— Ecriture 
£ en memoir 
procedure writedate(vardate:date); 
begin 
mmjJaa.adresse ‘=adrdate; 


mmjjaa.datesys"®.joui- 
mmjjaa.datesys® .mois 
mmjjJaa.datesys”.annee 


end; 


:=vardate.jour; 
t=vardate.mois; 
:=vardate.annee 


Saisie no 


le disque et 


= mm mm mm mm M mm mme mem 


u boot disk 
date systeme version 
4 pour version 1.0) 


1,51 


ut 
memoire (voir article 
EEKS et POKES en PASCAL" 
MS numero 12 page 9 


inutilise 

numero du ler bloc 
inutilise 

nom du disque 
nbre de blocs sur 
nbr'e de fichiers 
inutilise 
date systeme 
inutilise 
inutitise 


libre 


fe disque 
sur disque 


eñnregistree 


integer 
ectets “taille d’un bloc) 
de la nouvelte date systeme 


e. 


uvelle date systeme 


pouvoir acceder a la date 


LD 49 RCA NRC CR NEC 


Lé ns Lo OL 


VUUUUYU NU AS LS LS 


2 
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procedure saisdate; 


const x =<62: € pasttion du debut de Ta zone de <szizie 
PAS =18: € Cx0 = coltanne >y0 = ligne) 
var strdate :string; 
Jj sinteger; 
Mimi :integer; 
aa tinteger; 
ok :bhooïean: 
CR RME RS Tin SN Pirate teantiat sm Saiste Ces eléments'ods la gate 
procedure saisJjmmaa; 
var JUS 2 sinteger; 
mi ,m2 :integer; 
ai,a2 sinteger; 
c schar; 
ok :boolean; 
beain 
change:=true; 
Ç{ ============2==========----— Lecture ler ch iffre du Jour 
repeat 
gotoxyr(x0,y6); 
readic); 
if ordic)=22 then beqin { si RETURN, arret saisie 
change:=falee; 
exitisaisjjmmaa) 
end; 


ji:=ord(c)-ordi’0"); 


OkKi=tJl in 00379: 
if not ok then writeln<tchr<73) 
until or; 
{ ==============-SsSSSSezz=== Lecture 
repeat 
gotox”(xU+1,»Y0); 
readic); 
J2:=0rdi£2)-0ordt"Q7 
ok:= < tj 1=0 and (Je 
arm oCCJL An. Obs 2179, &nar T2 
or {(J1=3 >) and {J2 
if not oK then writelnéchré73) 
until ok; 
Jj:æ=10%j1 + j2: 
{ ES L ec + ure 
repzat 


gotoxyr{x0+3,»y0); 
read(c): 


if ordic)=22 then exit(<aisJjmmaa); 


ml:sordici-ord(’0"); 

oK:=<m£t in [C0,11); 

if not ok then writeln<chré<7)) 
until ok; 
Û ============================- Lecture 
repeat 


gotoxy(x@+4,y8); 
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in 


€ test de validite 


2eme chiffre du Jour 


{ test de validite 
ln: Clair 
LOTUS 
En 01403) >: 


ler chiffre du mois 


{ si RETURN, arret saisie 


{ test de validite 


2eme chiffre du mots 


as 
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read(c); 


m2:=ord(c)-ord(/0"); { test de validite > 
oK:i= ( {émi=0) and m2 in L1..91)) 
or Céml=1) and 6mZz in (Q..21)) >5 


if not ek then wuriteln£chr£ir)) 
until ok; 


mm:=10xmi + m2; 


De 


{ ======================------— [ec ture ier chiffre de ]'annees 
repeat 

gotoxy{x0+é6,70); 

read(c); 


if ordic)=32 then exit(saisjjmmaa) ; { si RETURN arret saisie } 
al:=ord(c)-ord(’0); { test de validite } 
oKi=Létal Cin (L0:912; 


if not ok then writelnCchr<7)) 
until ‘oK:; 


Ÿ ===========================—=—= Lecture 2eme chiffre de j’annee } 
repeat 
gotoxy(x@+7,y0); 
read(c): 
a2:=ord(co-ord(’0°); { test de validite ? 
ok::=6a2 in: 071); 
if not ok then writeln(chré73) 
unt:} ok; 


aa:=10#ai + a2; 
end: 


sassssi: Verification coherence date saisie 


O 
a) 
£ 
U] 
7 
+ 
a 
w 
æ 
U] 
T 
O 
Le) 
] 
% 
a 


beqainr 
if mm in [4,4,9,11] 
then verifdate:=(jj<31) 
else if mm<>2 
then verifdate:=true 
eise jf aa mod 4 <> 0 
then verifdate:=1})<29) 
elze verifdate:=(jj<30) 


As Rene a nee de nee ee ge se ie BIOS Stars HUDeDUÜ tr SATSRATE ue 
eaitn 
jJi:=res.header.datesys.Jour; 
mmi=rep.header.datesrs.mois; 

a 


=rer.header.datesys.annee; 


Ge —— Affichage date actuelle } 
gotox>r(0,17); 
writet”’Current date is ’,jj,°-"); 
€ mm ne Ce, 127 
then Case mm of 

1: write(’Jan’); 
write(’Feb’);: 
write(’Mar’); 
write(’Apr’); 
write(’May’); 
write(’Jun‘); 
write(’Jul’); 


SJ 0 O1 Hs À NH 
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8: write(’Aug”); 
9: write(’Sep’); 
QG: write(’/Oct’); 
f: write(’Nou’); 
Z: writer Dec”) 
end 

else write(/7?7?7?7°); 
writeln(’-’,aa);: 


writelns'Enter new date if needed (form 


gotox>r(x@,»8); 


(PA RL A à OO 

FEpeat 
SaisJimmaa: 
gotoxy(x8,»8) ; 
if jJj<=Y7 then 
if mm<=9 then 
it aa<=7 then 


write{’0/)D;write(JJj,"-* 
write(’0");writetmm,’— 
write(’0");writecaa); 


[4 


if not change 

then ok:=true 

else ok:=verifdate; 
gotoxr{25,20); 

if not ok 


Saisie nouvelle date si 


sv 


besoin 
<01..3i>-<01..12)-<00..77)) CD D 


* Lecture reponse 

€ Rescriture date complete 

3 

; 

{ Si saise par RETURN =} rien à faire 


{ Sinon on verifie la nouvelle date 


EEE ere r22 
ee 


Si 
nOuvelie date pour 


modification alors on memorise la 
les mises a jour. 


{ de ja procedure SAISGATE 


Lecture de ler Bloc du repertoire 


2 


du ter Bloc du rerertoire 


Mise a jour 


then write(’3>3>2>> Date invalide 
else write” 
untij ok: 
RS SE EEE SE Eee 
€ 
if change 
then begin 
with wdate do 
begin 
JOUR ES 
MOIS  :=MmM; 
annee :—=aa 
end; 
rep.header .datesys:=wdats= 
end 
end: 
Ce 
procedure readrep{var varrepirepert);: 
Begin 
unitread(volume,varrep,zireef(sarrep),2 
end; 
€ 2 
procedure writerep{uar varrepirepert); 
Begin 
unitwritetvolume ,varrep .,zsizeofivarren),2) 
end: 
Le 


procedure we ]come; 
begin 


pageoutput): 
gotoxy(@,10): 
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Affichage du message de bienvenue 


Le 
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writeln(’Welcome ‘,rep.header.nom,’, to Apple II Pascal 1.1‘); 
writeln; 
writeln(/Based on UCSD Pascal System Version I1.1°); 


end; 
= — } 
€ PROGRAMME PRINCIPAL } 
= —— ) 
begin 
readrepg(rep); { Lecture du ler bloc de la directory 7} 
welcome ; { Affichage du message de bienvenue > 
saisdate; € Saisie de la date ? 
if change 
then begin { S1 differente de l’ancienne, } 
writedatefwdate): { 4 — enregistrement en memoire 2 
writereptreg) { 2 —- mise à jour de la directory» :) 
end 
end. 








LA PHOTOCOMPOSITION EN PROLONGEMENT DE LA MICRO-INFORMATIQUE 


FR TRANSMETTEZ-NOUS VOS TEXTES 


PAR TELEPHONE — 
ou 
DONNEZ-NOUS VOTRE DISQUETTE 


Les textes de vos articles, catalogues, annuaires ou brochures 
saisis sur votre APPLE sont envoyés directement sur notre photocom- 
poseuse. 





ré, 7 Nous vous évitons ainsi, le coût et le temps de la saisie supplé- 
+ / mentaire que nécessite le traitement traditionnel de la photocompo- 

sition avant l'impression des documents, si vous le désirez nous pou- 
‘ons également nous charger de l'impression et du brochage. 


NOTRE RÉFÉRENCE... LA REVUE POM'S THECOMPO 48 Del 0 


dd PA sn 13 et 15 avenue du Petit 
mue D ANRT MA TMENT DE ETES 94300 VINCENNES 
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Tout ce que 
VOUS avez 
(OUjOUrS 
voulu savoir. 


Apple 


MMS 


LT del 











Î 





4 1 








Apple et GMS c'est une rencontre. 
Apple c'est toute une gamme d'ordi- 
nateurs personnels pour profession- 
nels. 

L'Apple Ze et son jeune frère compact 
l'Apple Ze. Ils sont très sérieux pour la 


Buena CLS 


gestion, la tenue des stacks ou le trai- 
tement de texte... 

Ft puis il y a Macintosh et sa souris. 
On clique sur la souris, on appelle le 
programme. Tout un menu est affi- 
ché par symboles, les éléments sont 


SI 





Informatique GMS 212-214 avenue Daumesnil 75012 Paris. 


Ps , 
4 


DEN um 












QI 





simples et les combinaisons infinies. 
Enfin il y a GMS, une équipe de pro- 
fessionnels qui vous accueilleront et 
vous conseilleront personnellement. 
Alors tout ce que vous avez toujours 
voulu savoir. 345.28.52. 


# 





L 


Apple 
“Le nom Apple et le logo Apple sont des marques déposées d'Apple Computer, Inc.” TM Apple Computer, Inc est le licencié de la marque Macintosh. 
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HUVL SEGUELA CAYIAC & GOUDARD 


mi it 


PLE+CRAE+APA 


Yvan Koenig 


Si vous avez PLE. CRAE, TOOLKIT 
et une extension 16K, je vous offre 
la possibilité d'avoir ces trois utilitai- 
res simultanément en mémoire 
(MEM) avec. en plus, un tableau des 
lignes référencées et une routine re- 
groupant des lignes consécutives 


CRAE se place sous les buffers du 
DOS de $7400 à $8FFF. LOADAPA. 
utilisé lorsque PLE est en place, 
charge APA de $81E1 à $S8FFF. 
GR+LINREF utilise $7FD0 à $81D9. 
ll est possible grâce à CRAPAOBJ 
de reporter CRAE dans l'extension 
Banki de $D000 à $ECO0. De son 
côté, APA+DIVERS peut se loger en 
Bank2 de $D000 à $DFFF et de 
$F000 à $FCOO 


La commande &’ permet d'appeler 
en MEM lutilitaire qui n'y est pas. 
Lorsque APA+DIVERS est actif, on 


Pour avoir ces possibilités. entrez les 
programmes CRAPA et GR+LINREF 
soit en assembleur, soit directement 
en hexadécimai. Chargez PLE, puis 
faites RUN LOADAPA atin de placer 
APA sous les buffers du DOS. Placez 
alors GR+LINREF en $7FD0 et sau- 
vez le tout par BSAVE 
APA+DIVERS. A$7FD0.L$1030. 
Chargez à nouveau PLE. effacez 
63999, tapez le listing PLECRAPA et 
sauvez sous ce nom 


Vous pouvez alors initialiser une dis- 
quette avec PLECRAPA puis la 
compléter avec PLEEDIT.PROD 
APA+DIVERS et enfin CRAPA.OBJ. 


Vous avez alors un outil très complet 
pour l'édition de vos programmes 
Basic. Je cite pour mémoire : avec 
CRAE (voir Poms 1}. vous avez la 
recherche et la modification de chaî- 


Avec APA+DIVERS, vous avez les 
variables référencées, la renumérota- 
tion, la réunion de programmes, la 
suppression de REM, les lignes réfé- 
rencées, etc. 


Je précise que &GR L1.L2 se borne 
à afficher les lignes L1 à L2 comme 
si elles étaient regroupées. à vous de 
valider si vous le souhartez en relisant 
avec le curseur. 


&GR L1 affiche la ligne L1 compac- 
tée au maximum, les espaces parasi- 
tes étant omis et les instructions 
PRINT remplacées par ? 


Je n'ai pas créé de pense-bête pour 
indiquer quel utilitaire est actif à un 
moment donné, taper & envoie le 
message READY si CRAE est actif. et 
envoie le prompt Applesoft dans le 
cas contraire. 

La mémoire disponible pour les pro- 





accède à LINREF par &&. à nes. un dump mémoire. une numé- grammes Basic est exactement celle 
GROUPE par &GR L1.L2. : é : 
rotation automatique. et la conver- que l'on a avec le couple PLE + 
sion HEX — DEC. CRAE. Eu 
1LIST : PLECRAPA °3: PRINT “3. DUMP‘ ;: HTAB 26: PRIN 
T °8. AUTOLINE": PRINT “4. FIND";: 
10 TEXT : HOME 3: CALL PEEK (175) + PEE HTAB 26: PRINT "9. RENUMBER": PRI 
K (176) # 256 - 1822: CALL - 2257 NT °5. LIST®;: HTAB 26: PRINT “10. 
2: PRINT °UOUS AVEZ PLE° MODIF Y" 
30 PRINT CHR$ (4)°BLOADCRAPA.0BJ,A$300" 610 PRINT “i1.QUICK & DIRTY": HTAB 26: P 
: POKE 827,8: POKE B29,6 RINT °% = MONITOR®: PRINT "! = FRE 
50 GOSUB 620: PRINT CHR$S (4)"BLOAD APA+ EBYTES": SPCC 119 "!F= HEX Ÿ DEC": 
DIVERS": CALL 786 PRINT °% = BIN. LOAD ADR" SPC{ B)" 
60 GOSUB 600: PRINT CHR$ (4) "BLOADPLE.E Ai= DEC > HEX": RETURN 
DIT.PROD": CALL 76B 620 HOME : PRINT "&RENUMBER <START )}, {INC 
70 POKE 111,240: POKE 112,115: POKE IIS, >,<FIRST>,<LAST>": PRINT “&HOLD": 
240: POKE 1ti6,115: POKE 827,6: POK PRINT °&MERGE": PRINT "&LENGTH": P 
E 829,8 RINT “&COMPRESS": PRINT “"&SHOW": P 
80 PRINT : INVERSE : PRINT “ CRAE ACTIF RINT "“&NOSHOUW" : PRINT “"&AUTO <STAR 
"35: HTAB 21: PRINT “&’";: NORMAL : T>,<INC)>": PRINT “&MANUAL'": PRINT 
PRINT “ POUR BASCULER": UVTAB 22: °&XREF": PRINT °&KEYS* 
NEU 630 INVERSE UTAB 10: HTAB 30: PRINT "& 
600 PRINT : PRINT “1. APPEND':: HTAB 26: GR Li,L2": HTAB 30: PRINT "&&=LINR 
PRINT “6. QUOTE": PRINT “2. CHANG EF": NORMAL : RETURN 
E",;: HTAB 26: PRINT “7. VERIFY OFF 
L 16 TMINUS EP2Z #5C9 
2 :*** GROUPE DES LIGNES +#+ Ier 
3 j##x SUR L'ECRAN POUR *xx 18 AMPERV EQU #$3FS5 
4 ;*+*x EDITION EVENTUELLE #%# 19 TKNTS8L EQU $00D0 
SE 20 FNDLIN EQU #Dél4 
: ORG $7FD90 21 NEUSTT EQU 50702 
98J $800 22 ISCNTC EQU $D858 
8 ; GR + LINREF.SCE | 35 Lincer eau soaoc 
9 CH EPZ $24 24 CRDOO EQLU S5DAFB 
18 LINNUM EPZ #30 25 OUTAST EQU $DB5A 
11 FORPNT EP2 585 26 QUTRO EQU FD85C 
12 LOUTR EPZ $98B 27 SYNTAX EQU 50EC9 
13 DSCTMP EPZ $90 28 LINPRT EQU $ED23 
14 CHRGET EPZ #$81 29 : 
15 CHRGOT EP2 $87 30 :; 


ARE PONT 


60 
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E.APA 
32 : 
CIVERS 


AUTRE 


COMPAC 
STRTLN 


ENDLN 
ENDMAX 


ERRP 
FIRSTL 


NXLN 


ENDRNG 
PRNIMB 


LSTLN 


PRCHR 
NOCR 


FIN 


KEYCHR 
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EQU 


CMP 
BNE 
JMP 
CMP 
BEQ 
JMP 
JSR 
JSR 
JSR 
JSR 
BEQ 
CMP 
BEQ 
CMP 
BNE 
JSR 
JSR 
BNE 
PLA 
PLA 
LDA 
ORA 
BNE 
JMP 
LDY 
JSR 
INY 
LDA 
TAX 
INY 


LDA 
STY 
JISR 
LDY 
JMP 


LOY 
LDA 
8EQ 
JSR 
INY 
LDA 
TAX 
INY 
LDA 
CMP 
BNE 
CPX 
BEQ 
Bês 
STY 
LDA 
BE 
LOY 
JMP 
JSR 
INY 
LDA 
BNE 
TAY 

LDR 
TAX 
INY 
LD 
ETX 
STA 
BNE 
JSR 
JMP 
INY 
SNE 


58310 


#SAF 
AUTRE 
LINREF 
#$S3 ; 
C@MPAC 

E.APA 

CHRGET 

LINGET 

FNDLIN 

CHRGOT 

ENDMAX 

#TMINUS 

ENDLN 

#” .” 

ERRP 

CHRGET 

LINGET 

ERRP 


GR .OUPE 


L INNUM 
LINNUP4+ 1 
FIRSTL 
SYNTAX 
#1 

CRDO 


(LOUTR) .Y 


{LOWTR) .Y 
FORPNT 
LINPRT 
FORPNT 
NOCR 


LR! 
CLOWTR) ,Y 
FIN 

I SCNTC 


CLOUTR) ,Y 


(LOWTR) .Y 
L'INNUM#1 
EMDRNG 
EINNUM 
PRNMB 
FIN 
FORPNT 
Ft 
PRCHR 
FORPNT 
NOCR 
JUTDO 


CLOUTR)I ,Y 
PROCHR 


CLOUWTRD .Y 


{LOUTR) .,Y 
LOuTR 
LOWTR+1! 
NXLN 

CRDO 
NEWSTT 


K1 


184 
105 
166 
107 
103 
109 
110 
11:1 
112 
113 
114 
115 
116 
117 
118 
11% 
120 
121 
122 
123 
124 
1:25 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
idé 
147 
148 
149 
1 50 
151 
1:52 
153 
154 
155 
156 
157 
158 
139 
160 
161 
162 
163 
164 
165 
1éé 
167 


170 
171 


INC 
LDA 
RTS 
BPL 
ST" 
CMP 
BNE 
JSR 
JMP 
SEC 
3BC 
TAX 
LDY 
SIN 
EDDY. 
STY 
LOY 
DEX 
BEQ 
JSR 
BPL 
BMI 
JSR 
BMI 
JSR 
BNE 
JSR 
JMP 


K1 
RTNO 
PROCHR 


PRO! 


NXKE'7 


Ni 


PRKEY 


P2 


; 
;# TABLEAU 
; 


3 
TXTTAB 
CURLIN 
FLS 
FL2 
OLDTXP 
DATPTR 


EPZ 
EP2Z 
EP2Z 
EP2 
EP2Z 
EPZ 


; 
KBD 
KBDSTB 


EQU 
EQU 


COUT 
; 


EQU 


JSR 
LDA 
STA 
LDOA 
STA 
LDA 
STA 
LDY 
LDA 
PHA 
INY 
LDA 
8SEQ 
PHA 
PLA 
STA 
PLA 
STA 
JMP 
PLA 


; 
LINREF 


D1 


D2 


JSR 
LDA 
STA 
LDA 
STA 
ENCORE LDA 


DSCTMP+1 
CDSCTMP),Y 


PRCHR 
FORPNT 
##$EA 
PRO! 
OUT&ST 
LSTLN 


:/ PRINT” 


#&7F 


#TKNTBL 
DSCTMP 
JTKNTBL-$#100 
DSCTMF +1 
#3FF 


PRKEY 
KEYCHR 
Ni 
NXKEY 
KEYCHR 
P2 
OUTDO 
PRKEY 
OUTDO 
LSTLN 


DES LIGNES APPELEES * 


$67 
$75 
877 
$7B 
579 
$70 


$C000 
$C010 


$FDED 


CHRGET 
TXTTAB 
OLDTXP 
TXTTAB+1 
OLDTXP+ 1 
#0 


RD EEE PES EE TT TE" 


. 
_— 


COLDTXP) ,Y 


(OLDTXP) ,Y 
02 


OLDTXP+1 


OLDTXP 
01 


CRDO 
TXTTA8 
OLDTXP 
TXTTAB+1 
OLDTXP+1 
#0 





61 





62 


577 
178 
L 79 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
91 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 


TERMIN 


; 
UNELIG 


U1 
U2 


U3 


U4 


; 
Y AINUM 


FLI 
#2 
(OLOTXP) ,Y 
CURLIN 


(OLOTXP) ,Y 
CURLIN+1 
UNELI G 

CT, 
{OLOTXP) ,Y 


COLDTXP) ,Y 
TERMIN 
OLOTXP+1 


OLDTXP 
ENCORE 


TXTTAB 

DATPTR 

TXTTAB+1 

DATPTR+1 

#q 

CDATPTR) ,Y 

U4 

H#$CS AT 
u3 

#585 ;5DEL 
U3 

YAINUM 

HsSAB ; GOTO 
YAINUM 

H$AC ;RUN 
YAI NUM 

##&C4 ; THEN 
YAI NUM 

H#$B0 ; GOSUB 
YAINUM 

##BC LIST 
YAINUM 


U2 
#0 
{DATPTR) ,Y 


CDATPTR) ,Y 
DATPTR+ I 


DATPTR 
(DATPTR) ,Y 
U1 


NUMGET 
FL2 

Ya 

LE INNUM 
CURLIN 
Y4 
LINNUM#1 
CURLIN+{ 
Y4 


FL1 

Yi 

#1 

FLI 

TOUCHE 

CRDO 

#$A0 > TIRET 


252 
253 
254 
255 
256 
257 
258 
239 
260 
251 

262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 


278 
279 
280 
281 

282 
283 
284 
285 
286 
287 
288 
289 
290 
291 

292 


293 
274 
295 
296 
297 
298 
299 
300 
301 

302 
303 
304 
395 
306 
307 
308 
309 
310 
311 

312 
313 
314 
315 
316 
317 
318 
319 
320 
321 

322 
323 
324 


JSR 
LOY 
LDOA 
TAX 
INY 
LDA 
JSR 
LDA 
STA 
BNE 
Y1 LDA 
Y2 JSR 
Y3 LOY 
LDA 
TAX 
INY 
LOA 
JSR 
PLA 
TAY 
Ya LDA 
CMP 
BEQ 
JMP 


; 
NUMGET LDA 


COUT 
#2 
COLDTXP) ,Y 


{OLOTXP) ,Y 
LINPRT 
#7 


#2 
(DATPTR) ,Y 


{DATPTR) ,Y 
L'INPRT 


(DATPTR) ,Y 
##2C 
YA{NUM 

U2 


#0 


LE LINGET APPLESOFT 


STA 
STA 
STA 
Ci INY 
LDA 
CMP 
BEQ 
C10 LDA 
SEC 
sec 
8cc 
CMP 
BCS 
INC 
PHA 


ASL 
ROL 
LOX 
LDA 
ASL 
ROL. 
ASL 
ROL 
ADE 
STA 
TXA 
ADC 
STA 
PLA 
ADC 
STA 
8cc 
INC 
C2 INY 
BNE 
C3 RTS 


TOUCHE LDA 
BPE 
STA 
TI LDA 
BPL 
STA 
T2 RTS 
LONG EQU 
FINI END 


L'INNUM 
L'INNURT+ 1 
FL2 


éDATPTR) ,Y 
#520 

Ci 
(DATPTR) ,Y 


##$30 
C3 
#$A 
C3 
FL2 


& INNUM 
L'INNUM#+ 1 
L'INNUM#+1 
L'INNUFI 
L'INNUFI 
L'INNUM+ 1 
L INNUM 
L'INNUM+ 1 
LI NNUM 
L'INNUM 


L'INNUM# 1 
L'INNUM+ 1 


L'INNERI 
L'INNUM 
C2 
L'INNUM#+ 1 


Ci0 


x-DIVERS 


; VIRGULE 


;VIRGULE 


; PRESQUE 


; ESPACE 
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80A40- 85 00 


GR + LINREF que ES 0 00 ET 9 4 CS minez 29 20 06 Lo 26 51 né s0 
9080- 81 79 FO 0A 48 68 85 7A Dita 042: Lo us 98 6e 20 
B0BE- 20189-72740 ;24 "6096 20 81C0- 90 02 Es 31 C8 00 CO 60 
80C0- F8 DA AS 67 83 79 AS 68 81C8- AD 00 CO 10 08 60 10 C0 
*7FD0.8108 99Ca- 85 74 A9 00 85 77 AU 02 bd AD 00 cd 10 EAV ED 10 C4 
8000- 81 79 85 75 C8 81 7? 85 SPAS 
7F00- C9 AF DO 03 4C 98 80 C9 80D8- 76 20 FO 80 AO 00 81 79 
7F08- 88 FO 03 4C 10 83 20 61 80E0- 48 Ca 8i 79 FO 08 85 74 
7FE0- 00 20 OC DA 20 1A Dé 20 80E9- 68 85 79 4C CA 60 68 60 
7FE8- 87 00 FO 10 C9 C9 FO 04 80F0- AS 67 85 D an :e LE fe 
7FF0- C9 2C DO 10 20 81 00 20 90F9- AO 04 @1 
7FF8- 0C DA D0 08 68 68 AS 50 8100- 80 1A C9? 85 90 146 FO 29 CRAPA.OBJ 
8000- 0S Si DO 03 4C C9 DE A0 9109- C9 A8 F0 25 C9 AC FO 21 
8008- 01 20 F8 DA C8 81 98 AA 8110- C9 C4 FO 10 C9 80 FO 19 *300.37A 
8010- C8 81 98 84 85 20 24 ED g118- C9 @C FO 15 C9 D0 D8 A0 
8019- A4 835 4C 45 680 A0 01 61 8120- 00 81 ?0 48 C8 81 ?D 95 0300- AG éE 8C Fé 03 A0 03 8C 
8020- 98 FO 34 20 58 D8 Ce 81 8128- 7E 68 85 ?0 Bt ?0 00 CS 0308- F7 03 A0 0! 84 2C A0 08 
8029- 98 RAA C8 81 98 CS S1 DO 8130- 60 20 85 81 AS 78 FO 44 0310- DQ 10 A0 61 8C Fé 03 AU 
8030- Q4 E4 S0 FO 02 80 20 84 8138- A5 50 C3 73 DO 3 AS S1 0319- 03 8C F7 03 AO 02 84 2C 
80389- 85 A9 34 DO 05 A4 85 4C 8140- C3 76 DO 38 98 48 AS 77 0320- AG 00 A9 00 85 08 65 04 
8040- 45 80 20 SC 08 C3 81 98 8148- DO 20 A9 0! 85 77 20 C8 0328- A9 DO 85 07 A9 74 853 09 
8048- DO 18 A8 81 98 AA C6 61 8150- 81 20 F8 DA A9 AD 20 ED 0330- 89 83 CO 89 83 CO A2 10 
8050- 98 86 9B 85 9C DO Cé 20 8138- FD AO 02 Bi 79 AA C8 81 0338- A0 09 81 06 91 06 C8 D9 
8059- F8 DA 4C D2 0? C8 DO 02 8160- 79 20 24 ED A? 07 85 24 0340- F9 Eé 07 Eé 09 CA DO F2 
8060- Eé 9E 81 9D 60 10 DE 84 8168- DO DS A9 AC 20 ED FD A0 0348- AS 2C C9 02 DO 06 Cé 2C 
8068- 85 C9 BA DO 06 20 5A DB 8170- 02 81 7D AA C8 81 7D 20 03$0- A9 F0 85 07 A2 AC Cé 2C 
8070- 4C 30 80 38 E9 7F AA AC 8178- 24 ED 68 AG B1 70 CF 2C 03S8- FO DE AD 8A CO AD 82 CO 
8078- 00 84 90 A0 CF 84 ?E A0 8180- FO AF 4C FA 80 A9 00 85 0360- 60 C9 27 FO 03 4C DO 7F 
8080- FF CA F0 07 20 SD 60 10 9189- $0 95 S1 95 78 C8 81 70 0369- 20 81 90 4C 00 03 C9 27 
8088- F8 30 Fé 20 SD 80 30 05 8190- C9 20 FO F9 81 ?0 38 E9 0370- FO 03 4C 00 87 20 81 00 
8090- 20 SC D8 00 Fé 20 SC D8 8199- 30 90 2C C9 0A 80 28° Eé 0378- 4C 12 03 
8098- 4C 30 80 20 81 00 AS 67 81A0- 78 48 06 S0 26 S1 A6 Si 
Conversion minuscules/Majuscules 
Alexandre Avrane 
Ce programme de conversion est qui tournent sous ProDOS {tel que SHIFT 
destiné aux possesseurs d'Apple Il ou CQ.F.D.} car SHIFT ne fonctionne 24 
d'Apple Il+ sans ROM d'affichage que sous Dos 3.3. Le programme | 
des minuscules. [l convertit tous les une fois converti en majuscules sous " 
caractères minuscules situés dans un DOS 33 peut effectivement l'être *300 .34A 2 
programme Applesoft en caractères ensuite en ProDOS, sans problème. LE 
majuscules correspondants. RÉPRTE pe : 0300- A9 OF 85 36 A7 03 85 37 4 
; 5 L'utilisation est très simple et ne né- 0308- A9 00 85 48 4C EA 03 @D çes 
Il vient en complément du module  Cessite aucun commentaire particu- 0310- 4A 03 08 8A 48 AD 44 03 2 
SHIFT paru dans Pom's 14 et per- lier. En revanche. je vous laisse dé- 0318- A2 07 DD 34 03 FO 0C CA 
met de modifier définitivement un couvrir son principe de 0320- 10 F8 C9 EO 90 08 38 €9 
programme sans devoir lancer SHIFT fonctionnement qui repose sur lagé. ©2297 20 D0 03 80 42 03 8D A 
RE a el j d 0330- 03 68 AA 28 AD 4A 03 4C 
que LL ere nération en cascade de plusieurs fi- 0338- FO FD CO DC E0 F8 FC FO 
De plus, il est destiné plus paiticuliè- chiers EXEC. 0340- FE FF Ci C3 A1 CS DS CS 
rement aux programmes Applesoft : 0349- AO A1 00 
1 REM SHIFT.COM/ERT 220 PRINT DS$S*WRITE Z1" 
2 REM <C) 1984 ALEXANDRE AVRANE 230 PRINT "LOAD'FIS$ 
3 REM 27/10/84 240 PRINT "4643999"; 
59 IF PEEK <55) < > 158 THEN FLASH : 250 PRINT °:?°Q$D$"CLOSE 21°; 
FRINT °SHIFT.CONVERT DOIT S’EXECUT 260 PRINT ":?°Q$0$"OPEN 22"Q%: 
ER SOUS DOS!'": NORMAL : END 270 PRINT ":?2"GS$08"URITE 22"0$; 
100 D = CHR& (4) 280 PRINT ":PGKE33,20"; 
110 Q$ = CHRS (24) 290 PRINT ":LISTO-63998";: 
120 TEXT : HOME 300 PRINT ":POKE33,40"; 
130 PRINT "CONVERSION EN MAJUSCULES D'UN 310 PRINT ":?7"Q$"63999"0s%; 
PROGRAFIME APPLESOFT COMPORTANT 320 PRINT ":?"Q$"SAUE"F2$0$8; 
DES MINUSCULES" 330 PRINT ":2"Q$"DELETE 21"; 
140 PRINT : PRINT 340 PRINT ":?°Q$"°DELETE 22"0$: 
150 INPUT "PROGRAMME INITIAL: "35F1$ 350 PRINT “:?°Q$SD$"CLOSE z22"0$; 
i60 INPUT "PROGRAMME CONVERTI:"3:F2$ 360 PRINT ":?7"G$8D8"MONI"QS ; 
170 PRINT D$"NOMS8NI CO" 370 PRINT ":?7"Q$D$"EXEC 22"a$ 
180 PRINT D$S"BRUN SHIFT" 380 PRINT “RUN 63999" 
190 PRINT BS$"OPEN 21" 390 PRINT D$"CLOSE Z1" 
200 PRINT D#&"DELETE 21" 400 PRINT D$"EXEC 2zi" 
210 PRINT OS$S"OREN 21" 
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CAËELSs à gogo 


Roland JOST 


Troisième article destiné à vous fami- 
liariser avec la manipulation en Ap- 
plesoft des ressources ultimes de 
votre Apple : après "Pokes à Gogo” 
{Poms 11) et ‘Peeks à Gogo” 
{Pom's 13), voici les ”Calls à Gogo”. 
Peut-être aurions-nous dû appeler la 
série ‘PEEKSs et POKESs et CALLe- 
gram” ? 


Comparer deux zones mémoire. en 
déplacer une, afficher un nombre en 
hexadécimal. lire ou écrire un secteur 
sur la disquette, afficher de droite à 
gauche, et bien d'autres choses en- 
core. sont possibles en utilisant les 
programmes du Moniteur, de l'inter- 
préteur Applesoft ou du DOS En 
effet il suffit souvent dé POKEr quel- 
ques adresses en page zéro, de faire 
un CALL. et ie problème est résolu 


Un certain nombre de sous-program- 
mes peuvent être appelés directe- 
ment à partir du Basic. Pour d'au- 
tres. il est nécessaire de charger 
l'accumulateur et/ou les registres 
d'index avant l'appel du sous-pro- 
gramme. Le programme en assem- 
bleur AMPERCALL vous facilitera la 
tâche. Dans la liste ci-dessous, ces 
CALLS sont précédés d'un amper- 
sand (&). 


Enfin. il est possible d'appeler des 
sous-programmes de l'interpréteur. à 
condition de POKEr certains paramè- 
tres en mémoire. Ces CALLS seront 
signalés par un #. 


# CALL -144 (65392) : lecture du 
tampon d'entrée et exécution des 


commandes : ce CALL est l'élément 
central de la célèbre routine de 
S.H.LAM : 

C$=C$+" N D9C6G':FOR Z=1 
TO LEN(C): 

POKE 511+2Z. 


ASCIMIDS(CS.Z.1))+ 128: 
NEXT:POKE 720:CALL —-144 
permet l'exécution de la chaîne CÈ 
représentant une commande donnée 
sous Moniteur. Par exemple. 

e Désassembler 20 instructions : C$ 


= “300L" 

e Copier la page graphique 1 en 
page graphique 2: CF 
="4000 <2000 3FF8M 


e Afficher une zone mémoire en 
hexadécimal. C$ = "300.3FF°" 


Passons aux CALLSs proprement 
dits : 
CALL -151 (65385): passage au 


mode Moniteur à partir du Basic. 


CALL —-155 (65381): comme pré- 
cédemment, avec émission d'un 
‘bip’. 


CALL —-167 (65369) 
tour en mode TEXT. 
CALL -182 (65354): sauvegarde 
des registres À, X, Y. P et S respect.- 
vement en $45. 546, $47, 548 et 
$49 (69 à 73). 

CALL -193 (65343): restaure les 


registres à partir du contenu des 
adresses $45 à $49 


: idem plus re- 


CALL —-198 (65338). émission 
d'un bip. 

CALL -211 (65325): affiche ERR 
et émet un ‘bip 

CALL -310 (65226) : lance l'exé- 
cution du programme machine 


pointé en $3F9 - $3FA (appelé par 
Ctrl-Y en mode moniteur). 


CALL —-321 (65215) : affiche les re- 
gistres À. X. Y. P.S 


# CALL -327 (65209): restaure 
les registres et appelle a DSSAE 
pointé par $3A - 38 (5 

Exemple d'utilisation : 

sous-routine RWTS : 


10B=256*(PEEK(PEEK(996)+256+ 
EEK(997)) 

+PEEK(PEEK(999)+256+ 
EEK(1000)) : 

REM adresse de la table IOB 

CALL —-182. POKE 69.10B/256: 
POKE 7110B-PEEK(69)+256 : 
POKE 59,3 

POKE 58.217: POKE 49.0: 
—327 

Attention : les paramètres nécessaires 
doivent au préalable être POKés dans 
la table [OB (voir programme AM- 
PERCALL). 


CALL -336 (65200): branchement 
au Basic. Le programme est effacé. 


ne la 


CALL 


CALL -—-380 (65156): passage en 
mode NORMAL 
CALL -384 (65152): passage en 


mode INVERSE 


# CALL -418 (65118) : passage en 
mode Moniteur et désassemblage de 
20 instructions. L'adresse de début 
doit être POKée en $34A et $3B. 
POKE 59,AD/256 : 

POKE 58.AD-256«PEEK(59) : 

CALL -418 

désassemblera 20 lignes à partr de 
l'adresse AD. Un autre CALL -418 
désassemblera les 20 lignes suivantes, 
etc. 


# CALL -458 (65078). vérification 
de 2ones mémoire. Exemple : 

D1 = début de la lère zone 

F1 = fin de la zone 1 

D2 = début de la zone 2 

D1, F1 et D2 sont POKés respective- 
ment en $3C - $3D, $3E - $3F et 
$42 - $43 


CALL -619: POKE 61.D1/256: 
POKE 60.D1-PEEK(61}*256: 

POKE 63,F1/256: 

POKE 62,F1-PEEK(63}*256: 

POKE 67,D2/256: 

POKE 66.D2-256+PEEK(67}: CALL 
—458 

Les différences seront affichées (le 
CALL -610 remet le registre Y à 
zéro, ce qui est absolument nécessaire 
car il est utilisé comme compteur par 
les routines VERIFY et MOVE) 

# CALL -468 (65068): sous-pro- 
gramme MOVE permettant le dépla- 
cement de zones mémoire. Utiliser 
l'instruction précédente en remplaçant 


simplement CALL —458 par un 
CAL -468. 
Exemple : recopier la page graphique 


2 dans la page 1 : 

CALL -—-610. POKE 61.64. POKE 
60.0: 

ns 63.95 POKE 62.255: POKE 
67 


POKE 66.0 :CALL —-468 


& CALL -550 (64986) : affiche le 
contenu de l'accumulateur (en hexa- 
décimal). 

& CALL -570 (64966) : addition ou 
soustraction de nombres hexadéci- 
maux inférieurs à $FF). Les deux 
nombres sont POKés en 60 et 62 et 
À doit contenir le code ASCII de + 


INPUT “AB"AB : POKE 


60.A: 

POKE 62.B: &CALL -570.43.0.0 
REM addition. 

Pour la soustraction faire &CALL 
—570, 45, 0. 0. 


# CALL -589 (64947): dump 

hexadécimal L'adresse de début doit 

être POKée en 60 - 61 ($3C - $3D). 

Et de fin en 62 - 63 ($3E - 
F 


o 
Exemple : 
A. 


CALL -629 (64907): envoie un 
RETURN avec effacement de la ligne 
depuis le curseur jusqu'au bord droit 
de la fenêtre de texte. 


CALL -651 (64885). 
frappe d'une touche. 


CALL -657 (64879) : attente d'une 
chaîne de caractères qui est stockée 
dans le tampon d'entrée. Tous les ca- 
ractéres sont acceptés : virgule, dou- 
ble point. etc. 
Exemple : 
CALL-657. 
—144 


attente de la 


POKE 720. CALL 


attente d'une instruction Moniteur, 
exécution de cette instruction et re- 
tour au Basic. L'instruction doit être 
suivie de “N D9C6G”. Non utilisable 
en mode immédiat. 


Pom's n° 16 


CALL -662 (64874): comme ci- 
dessus mais affichage préalable du 
curseur. 


CALL —-665 (64871): comme ci- 
dessus mais effectue d'abord un re- 
tour chariot 


CALL —715 (64821): affichage du 
curseur et attente d'un caractère 


CALL —741 (64795): affichage du 
curseur et attente d'un caractère. A 
utiliser à la place de GET si le pro- 
gramme appelle un fichier DOS 


& CALL -856 (64600): WAIÏT. La 
durée de la pause dépend de la va- 
leur de l'accumulateur 

A délai en millisecondes 

10 0.4 

50 7.1 

100 26.9 

200 105.1 

255 169,8 


CALL -868 (64668) : efface la ligne 
de texte entre la position du curseur 
et la marge droite de l'écran lidenti- 
que à ESC Fi). 


CALL —-912 (64624): déplace tout 
le contenu de l'écran d'une ligne vers 
le haut. Exemple: pour un SCROL- 
LING de l'écran de N lignes. FOR 
L=1 TO N: CALL -912.: NEXT 


CALL — 922 (64614): effectue un 
saut de ligne du curseur sans change- 
ment de colonne (identique à CTRE 
J) 

CALL -926 (64610): 
retour chariot (CR) 


CALL -936 (64600) : vide la fenë- 
tre d'écran texte et positionne le cur- 
seur dans le coin supérieur gauche de 
la fenètre d'écran (correspond à l'ins- 
truction HOME de l'Applesoft). 


CALL -958 (64578): efface l'écran 
entre la position du curseur et le bas 
de la fenêtre (identique à ESC F). 


CALL -998 (64538) 
le curseur d'une ligne 
FOR L=1 TO N: CALL 
NEXT 
lignes 
CALL -1008 (64528) 
curseur vers la gauche 
Testez les instructions suivantes 
A$="DEMONSTRATION" FOR J=1 
TO LEN(AS): 

HTAB 27 + J: FOR 1=1 TO 20 
CALL-1008: 

CALL —1008:-CALL — 1008 

PRINT MID$(A$.J.1)" ‘:: NEXT ll 


CALL -1036 (64500) 
curseur vers la droite. 


CALL -1169 (64367): modifie le 
RESET et le dirige vers le sous-pro- 
gramme dont ladresse aura été 
POKée préalablement en 1010 et 
1011 (décimal). 

Exemple : 

POKE 1010.102 :POKE 


101:.213-CALL —-1169 
l'appui sur la touche RESET (précédé 


effectue un 


fait remonter 


—998 
remonte le curseur de N—2 


déplace le 


déplace le 
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par CTRL sur le le) fera exécuter le 
programme Applesoft En effet le 
RESET pointe sur $D566 (54630 - 
voir plus loin) 


CALL —-1216 (64320): passage en 
mode graphique basse résolution 
(GR). Plus généralement retour à la 


page graphique définie précédem- 
ment, 

CALL 1223 (64313): passage en 
mode TEXT. 


CALL -1318 (64218) 
registres À, X. Y, PS, 


CALL —-1370 (64166) : démarrage à 
froid 


CALL -1438 (64098) - effectue un 
RESET 


& CALL -1718 (63818) : affiche X 
blancs Si X = 0 affiche 256 blancs 


#& CALL -1988 (63548) : efface la 
portion haute et gauche de l'écran 
pointée par $2D (45) et Y Exemple 

POKRE 45.Vert : & CALL —-1988, O. 
0, Horiz 


& CALL —-1992 (63544) efface 
l'écran GR jusqu'à la ligne spécifiée 
dans Y (compris entre O et 47). 
Exemple : & CALL -1992. O0. O. Y 


# CALL —-3082 (62454): en mode 
haute résolution. peint tout l'écran 
avec la dernière couleur utilisée 
Exemple 

HCOLOR=C HPLOT 0.0: CALL 
62454 

peint l'écran dans la couleur C (C 
compris entre O et 7) 

Ou encore 

POKE 228.X HPLOT O0 CALL 
62454 

avec X compris entre O et 255 : fonds 
divers 


CALL -3086 (62450) : vide la page 
HGR en cours d'utilisation, Peut se 
faire tout en restant en mode TEXT 


CALL -3102 (62434): passage en 
mode HGR avec effacement (CALL 
62430 pour ITT 2020) 


CALL -3112 (62424). passage en 
mode HGR2 avec effacement (CALL 
62420 pour ITT) 


CALL -3456 (62080) : passage en 
mode FLASH 

CALL -3465 (62071): passage en 
mode INVERSE. 


affiche les 


CALL -3469 (62067): passage en 
mode NOKMAL 
CALL -4818 (60718): affiche la 


valeur actuelle de FAC (accumulateur 
flottant). 


& CALL -4828 (60708) : affiche en 
décimal les 2 octets dans X et A. 


& CALL -9414 (56122): affiche 
une chaîne pointée par Ÿ et À et se 
terminant par $00 ou $22 

Exemple : 
A$="BONJOUR ”: 
LEN(AS): 

POKE 8191+L. 


FOR L=1 TO 


D __ _ _”* 


ASC(MIDS(AS.H1)):NEXT L 

POKE L+8191.0: TEXT: HOME: 
&CALL 56122.0.0,32 

CALL -10601 (54935) remet le 
pointeur en début de programme 
Basic et lance l'exécution, Les vana- 
bles sont conservées 


CALL —-10644 (54892): équivalent 
de la commande CLEAR 

CALL —-10677 (54859): équivalent 
de la commande NEW 

CALL —-10906 (54630): exécution 


du programme Basic Les variables 
sont perdues (commande RUN de 
l'Applesoft). 


CALL -10964 (54572): attente 
d'une chaîne de caractères qui sera 
stockée dans le tampon d'entrée. 
Tous les caractères tels que ‘:” ‘:" 
“" sont acceptés (non utilisable en 
mode immédiat) 

Exemple 

CALL —10964: POKE 113.0: POKE 
114,32 

&CALL 58850.255.0.2 

saisie d'une chaîne de caractères dans 
le tampon d'entrée et déplacement en 
$2000. Cette chaîne pourra être affi- 
chée par un &CALL 56122,0.0,32 


# CALL -20926 (44610): affiche 
un nombre entre O et 255. cadré a 
droite sur 3 colonnes Le nombre à 


afficher doit préalablement être POKé 
en 68 ($44) 


# CALL —-22572 (42964): déplace 
les buffers (tampons) du DOS La 
nouvelle adresse doit être POKée en 
40193 et 40192 

Exemple : 

POKE 40193.PEEK(40193)-N: 
CALL 42964 

libère N+256 octets entre $9C00 et 
les tampons en déplaçant ceux-ci de 
N pages vers le bas HIMEM est dimi- 
nué en conséquence et ni FP ni 
RESET ne modifient HIMEM Cela 
est intéressant pour stocker dans une 
zone protégée un sous-programme 
qui ne risque pas d'être écrasé. sauf 
après un BOOT Pour revenir à la 
normale, on pourra faire un 
POKE 40193. 156: POKE 40192. 
211: CALL 42964 


CALL -23186 (42350) : effectue un 
CATALOG du dernier dnve utilisé 
Pour avoir le CATALOG des deux 
drives d'un slot. faire 

CALL 42350 

POKE 43624.,3-PEEK(43624): 
CAËL 42350 


CALL 1016: lance l'exécution du 
programme machine pointé par 
CTRL-Y 

CALL 1013: lance l'exécuton du 


programme machine pointé par & 
($3F5 - $3F7) 

# CALL 1002. reconnecte les poin- 
teurs du DOS 

Exemple: modifier le 
gramme de sorte 


sous-pro- 
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POKE 
1002 
les sorties seront dirigées vers une 
routine en $300 


54.0 POKE 553: CAEL 


existe deux possibilités 


1) Utiliser les adresses de sauvegarde 
de ces registres ($46 et suivantes) La 
séquence d'instructions est alors la 


2) Utiliser l'utilitaire AMPERCALL qui 
fournit également la possibilité de 
POKEr dans deux octets mémoire 
consécutifs 


CALL 979 : réinitialisation du DOS suivante Appels : 

avec effacement du programme  — un CALL —182 sauvegarde les re- © &CALL adresse. A.X.Y 

Basic. gistres (fournir obligatoirement une valeur 
CALL 976: ré-initialisation du DOS — on POKE la ou les nouvelles va- à chacun des registres) 


sans effacement du programme Basic 


Conclusion 


Dans certains cas. il est nécessaire de 
modifier le contenu des registres 
avant l'appel d'un sous-programme 
Or l'Applesoft ne permet pas la modi- 
fication directe d'un registre 

Pour y parvenir avant un CALL, il 


leurs dans les adresses correspondant 
respectivement à À. X et Y 

— l'adresse du sous-programme à ef- 
fectuer doit être POKée en $3A et 
$3B (58 et 59) qui sont les adresses 
de sauvegarde du PC (PCL et PCH) 
— on termine par un CALL —-327 qui 
restaure les registres et lance l'exécu- 
tion du sous-programme pointé par 
PCL et PCH 


e &POKE adresse.expression 
(toute valeur inférieure à 65535) 


Ce programme est relogeable. Avant 
la première utilisation, il faut revecto- 
riser l'ampersand. 


AMPERCALL 0300- C9 8C CMP H#$BC : instruction CALL ? 
0302- DO 26 BNE $032A 3 
CALL 

0304- 20 B!I 00 JSR $00B:i : 
0307- 20 44 FF JSR $FF4A : Sauvegarde des registres 
030A- 20 67 DD JSR $0067 : on evalue la formule 
0309 - 20 52 E7 JSR $€752 : 
0310- AS 50 LDA $50 ; 
0312- 85 3A STA $3A : l’adresse du sous- 
0314- AS 51 LDA $951 : programme est mise 
0316-— 85 3B STA $3B : en $3A et 538 
0318-— 20 4C E?7 JSR $E74C t evalue À 
031B- 86 45 STX $45 3 
0310- 20 4C E7 JSR $E74C : evalue X 
0320- 86 46 STX $46 3 
0322- 20 4C E7 JSR $E74C : evalue Y 
0325- 86 47 STX $47 £ 
0327- 4C 89 FE JMP $FEB9 : restauration des registres et appel 
032A- CS B9 CMP #$B9 : instruction POKE ? 
032C- FO 01 BEQ $032F 3 
032E- 60 RTS : POKE 
032F- 20 Bt 00 JSR $00B1 : Saisie de l’adresse 
0332- 20 67 DD JSR $0067 Ü 
0335- 20 &4À DD JSR $SDD6A 3 
0338- 20 52 E7 JSR $E7S2 : 
0338- AS 50 LDA $50 : 
0330- 85 0é STA $06 : 
033F- AS 51 LDA $51 ! 

” 0341- 85 07 STA $07 É 
0343- 20 BE DE JSR $0EBE : teste la virgule 
0346- 20 67 OD JSR $0067 5 evalue la variabie 
0349- 20 6A 00 JSR $DD6A $ 
034C- 20%S52"E7 JSR $E6752 E 
034F- AC 00 LOY #$00 : 
0351- AS 50 LDA $50 : 
0353- 91 06 STA (806),Y : 
0355- c8 INY : 
0356- AS 51 LDA $SI ! 
0358- 91 06 STA C506),Y : 
035A- 60 RTS : retour au BASIC. 


ORG $DF65 


Précisions et errata 


Suite à l'article concernant le disque 


virtuel 64K. publié dans Pom's 14. 
un lecteur attentif apporte quelques 
précisions. Celles-ci vous permettront 


d'utiliser, sans perturbat'on éven- 
tuelle, ce programme en affichage 80 
colonnes. Le nombre d’ectek à pro- 


téger n'est plus alors 516 mais 1024 
Les modifications à apporter aux 
programmes RWAUXINIT et 
RWAUX sont jes suivantes : 

Dans RWAUXINIT remplacer 

— La ligne 51 par 

LDA #$0C 


Dans RWAUX remplacer : 


— Les lignes 12 et 13 respectivement 
par : 


OBJ $5065 


— La ligne 71 par: 

LDY #$05 

— À la ligne 123, L$100 devient 
L$102 

— Et enfin, compléter la ligne 30 par 
0607. Cette ligne devient alors : 

TB2 HEX 000104050607. 
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Applemaniaques, mes frêres, voici un 
début d'année en fonne de feu d'ar- 
tfice : la ligne Apple Il se diversifie et 
se multiplie, le Macintosh s'installe. 
Des nouveautés, en voici pour tout le 
monde. 


\ 
Commençons par sonder les murs de 
Cupertino; là-bas, au siège d'Apple, 
on en a déjà beaucoup entendu, 
mais jamais autant qu'en ce début 
d'année 1985. 


La première nouveauté va causer 
des joies, mais provoquer aussi cer- 
taines déceptions, l'Apple //c devient 
le nouveau standard de la famille 
Apple IL Une petite ligne qui déclen- 
che de nombreuses conséquences : 


—1 Les anciens Apple H et //e pour- 
ront être mis au niveau grâce à un 
kit que commercialisera Apple. Un 
nouveau processeur ”65C02” rem- 
placera le “vieux” 6502, donnant 
ainsi accès aux 27 nouvelles instruc- 
tions. De nouvelles ROMs contenant 
les graphiques de la souris (Mouse- 
text) se substitueront aux anciennes. 
Il est vraisemblable que, dans le cou- 
rant de l'année, tous les Apple //e in- 
têgreront ce kit {l'apparition du //c 
n'a pas tué le //e). Au contraire, le //e 
ne s'est jamais aussi bien vendu, à 
tel point que les commerciaux d'Ap- 
ple ont dû annuler d'urgence toutes 
les promotions à prix cassés” du //e. 


—2 La seconde conséquence est net- 
tement moins agréable. La modifica- 
tion de mise à niveau s'effectue par 
ECHANGE du processeur, et non 
par addition d'une carte. Dans ces 
conditions, tous les programmes des 
Apples Il qui tournaient mal ou bizar- 
rement sur le //c seront affectés des 
mêmes défauts sur les ordinateurs 
“kités”. Bonsoir la compatibilité ! Il y 
a des Multiplans, des PFS et des Ap- 
plewriters qui ne s’en relèveront pas. 


—3 La dernière conséquence entrai- 
nera une dépense supplémentaire 
pour tous ceux qui avaient rechigné 
devant j'achat d’une extension de 
mémoire. Le standard du //c étant 
d'une capacité de mémoire de 128 
Ko, il faudra se procurer les 64 Ko 
supplémentaires (à moins de disposer 
d'une carte 80 colonnes étendues, 
d'une carte RVB Chat Mauve, etc...) 


La deuxième nouveauté, et elle est 
de taille pour la famille des Apple Il, 
est la naissance du ’grand” frère du 
ce, connu actuellement sous le nom 
de //x. Dans une interview au men- 
suel britannique Apple Users, John 
Sculley, le directeur général d'Apple, 
a laissé entendre que le //x contien- 
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Micro-Iinformations 


drait, à la place du lecteur de dis- 
quettes de 5 pouces 1/4 traditionnel 
(et tragiquement limité à 143 Ko), un 
lecteur de 3 pouces 1/2 (le format 
des disquettes du Macintosh, d'une 
capacité de 360 Ko}, voire même, un 
disque dur de ce format Enfin, le 
nouveau //x serait équipé d'origine 
de 256 Ko de mémoire vive. La 
“bête” serait disponible courant 
1985. 


La troisième nouveauté est un réseau 
local destiné à l'utilisation de plu- 
sieurs Macintosh (jusqu'à 32). Le ré- 
seau utiliserait ’l'Applebus”, un ser- 
veur contenant un stockage de 
masse sur disque dur. 

Enfin, comme si tout cela ne suffisait 
pas, Apple présenterait dans le cou- 
rant de l'année une imprimante à 
laser dont le prix constituerait, à lui 
seul, une sorte de révolution (on 
parle de moins de 12000 F...) 


En attendant. 1984 a vu le succès 
d'un ordinateur bien différent de Big 
Brother : le Macintosh s’impose, sur- 
tout avec 512 Ko. Déjà, à Cupertino, 
on envisage des perfectionnements : 
la couleur ! À en croire la revue amé- 
ricaine À +, le Mac en couleurs por- 
terait comme nom de code Rainbow 
(Arc en ciel). Un circuit de Texas Ins- 
trument et une sorte sur l'arrière de 
Macintosh permettraient de le bran- 
cher sur un moniteur couleur. On 
nous avait bien prévenu chez Apple : 
ça ne sera pas donné (comptez 800 
dollars sans le moniteur...) 


Pour les voyageurs, le Macintosh de 
poche avec écran plat et alimentation 
autonome arrive. Un créneau porteur 
aux Etats Unis. Voici pour l'avenir, 
mais il existe déjà bien des moyens 
d'engloutir des fortunes dans les 
Apple d'aujourd'hui. 


Améliorez votre Apple II 


En commençant par la mémoire de 
masse. Une seule solution : le disque 
dur. Avec un nouveau Profile 
commercialisé par Apple. Allelouiah ! 
il a vu sa capacité doubler : 10 Me- 
gaoctets, contre 5 pour l'ancien, de 
quoi stocker le contenu de 70 dis- 
quettes de 5 pouces 1/4 Dommage 
que le prix soit conséquent : 23460 F 
TTC. 

Révons un peu en consultant la pu- 
blicité parue pour ie ”’Sider”. un dis- 
que dur, produit par First Class Peri- 
pherats, d'une capacité de 10 
Megaoctets. Il supporte les systèmes 
Dos 3.3, ProDos. CP/M 2,23, CP/M 
1.0, 1.5, 20, Apple Pascal 1.1 et 1.2 


Jean-michel Gourévitch 


et permet de “booter” sur le disque 
dur. L’esthétique est superbe. Prix : 
695 dollars À vous de faire la 
conversion en francs. Il est vrai 
qu'Apple vient de mettre en place, 
pour les membres du Club Apple, 
une formule de crédit spécial baptisé 
Apple Check. 


Désormais les accents circonflexes 
existent sur la version française d'Ap- 
ple Works qu'Apple sort enfin (appa- 
remment, la francisation n'était pas si 
facile). Apple Works, dont la version 
américaine a été testée dans Pom's, 
est un logiciel intégré et performant 
contenant un tableur, un gestionnaire 
de fichiers et un traitement de texte, 
pour Apple //e ou //c (accompagné 
d'un manuel de 330 pages et d'un 
livret de travaux pratiques pour 2490 
F TTC). 

L'une des lacunes d'Apple Works, 
état de ne pas disposer de fonctions 
de mailing et de correction. Voici 
l'oubli réparé (en anglais seulement 
hélas) grâce à Megaworks. Un logi- 
ciel de mailing et de corrections 
(30000 mots inclus et la possibilité 
d'en inclure 10000 autres) L'autre 
point faible d'Apple Works résidait 
dans les graphiques. Facile, avec 
Graphworks qui permet d'éditer sous 
forme de camemberts, d’histobarres 
ou de courbes, les données d'Apple 
Works (80 dollars). À noter, pour les 
afficionados” d’Apple Works que 
celui-ci sera bientôt disponible pour 
Macintosh. 


Imitez l'Apple //e 


Pendant qu'Apple s'échine à trans- 
former le //e en /{c, les fabricants de 
périphériques se cassent la tête pour 
faire l'inverse Qui a dit que le //c 
était une machine fermée ? Sûrement 
pas les britanniques de Cirtech. Ils 
ont réalisé un module CP/M qui 
s'installe dans le coffret du // c et 
joue le rôle d'une carte Z80. Elle est 
même, paraît-il un peu plus rapide. 
Paix : 95 Livres. 

L'utilisation du //c avec une ancienne 
imprimante posait un problème: le 
standard des imprimantes était jadis 
parallèle et est devenu série. Voici 
donc des convertissnurs de série en 
parallèle. Ils permettent de brancher 
le //c sur un périphérique nécessitant 
une interface parallèle (c'était notam- 
ment le cas de l’ancienne imprimante 
DMP d'Apple). Le boîtier Hamlet de 
Belkin Component permet ce mira- 
cle (un mini miracle seulement. ma 
mère) pour 99 dollars. La serial box 
de PBI Software le réalise aussi pour 
90 dollars. 
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Pour l’Apple Il gewriter vers l'avant, permettent 
simultanément de mieux voir ce 


Une caite multi fonctions, réalisée qu'on imprime et de loger le papier 
par AST Research, qui dispose d’un sous l'imprimante. 
branchement pour modem ou pour MicroRain a construit un meuble, 
imprimante, et en prime d'une hor- baptisé MacStation, qui loge le Ma- 
loge. Le tout sur la même carte pour cintosh, un drive. la documentation 
consommer moins de courant. et la souris et permet d'installer l'im- 
Un complément de poignet pour l’or- primante au sommet. 
dinateur. C'est la montre Seiko PC Assimilation Process à remplacé la 
Datagrap distribuée par  Markline. souris par un Mac Turbo Touch. une 
Elle vous permet de stocker 2 Ko à boule qu'on fait rouler avec la main. 
votre poignet dans 12 dossiers diffé- Cette firme propose aussi des log- 
rents. On peut V entrer des numéros ciels et des câbles pour relier le Ma- 
de téléphone. des itinéraires. des cintosh à des imprimantes à margue- 
dates, etc. La montre se relie à l'in- ite et à des Epson. 
terface RS 232 C interface série) de Et surtout un logiciel, Mac Memory 
l'Apple. Un logiciel, livré avec, per- Disk, offrant l’utilisation d'une parte 
met de transférer et de stocker les in- de la mémoire d’un Mac de 512 Ko 
formations sur la montre. Prix de comme pseudo disque Les avanta- 
l’ensemble : 120 dollars. En plus, elle ges sont: la suppression des accès 
donne l'heure. programmes et la rapidité. Apple tra- 
Enfin, un accessoire permettant de vaillerait aussi sur un tel disque. 
stocker des documents provenant de D'autres logiciels permettent de relier 
trois ordinateurs, et destinés à une le Mac à des imprimantes Nec (Mac- 
seule imprimante parallèle. Le multi print}, ou à des imprimantes à mar- 
buffer de Scooter stocke 64 Ko, per-  gueïite (Proprint de Creighton). 
met de les réimprimer à la demande, A remarquer encore le Thunderscan. 
joue à la fois le rôle d’un buffer, et de Thunderware, une caméra qui 
celui d’une boîte de sélection lors- permet de numériser des photos et 
qu'on ne dispose que dune seule de les reproduire avec Mac. A noter 
imprimante. Prix : 389 dollars. que cette caméra s'installe à la place 
À remarquer aussi Une version à pa- de la cartouche ruban de l'Imagewri- 
raître du célèbre simulateur de vol ter. et qu'il suffit de faire défiler la 
Flight Simulator 1l de Sublogic. Cette photo à reproduire sur l’imprimante. 
nouvelle version permet de voler à Prix: 229 dollars. 
plusieurs. Les Apples sont reliés par 
re câble ou par modem, et on peut Les logiciels 
me voler en formation. apercevoir l’ap- D + 
" pareil d'un ami. voire lutter contre lui ROPOS ANNE OR PR RSR 
r RS s'il en pleuvait. Des plus simples : 
_— des jeux de caractères comme ceux 
Le de Mac The Knife 2. ou Fluent Fonts 
FT Macintosh, c’est gagne. de Casady. Des logiciels astucieux, 
“ ; # AN comme Mac Publisher, de Boston 
hi Il existe, en matière de micro-infor- Telecomputer. donne la possibilité 
S matique, deux moyens de s'assurer d'éditer une lettre d'informations 
e- qu'un ordinateur s'impose sur le (100 dollars). Des programmes so- 
ne marché. La piemière, c'est de cons- phistiqués comme Fact Finder, de 
pe: tater l'apparition des logiciels de MacWare. permettant d'entrer des in- 
copie de programmes. La seconde formations sous n'importe quelle 


consiste à compulser les catalogues forme. puis de les extraire facilement 
des fabricants d'accessoires. Pour par mots clés, dates. etc. 


Macintosh, pas de doute, c'est 
gagné. Voici une première version de 
BitCopy Il Plus pour Mac (les ama- Le Pascal UCSD pour le 
teurs apprécieront). Une revue amé- : 

ticaine, Mac World. s'est déjà exclusi- Macintosh 
vement voué au culte de la nouvelle Le P-system est. depuis peu. im- 


idole. planté sur le Macintosh. En effet. 
BUS Informatique. unique représen- 


: tant de SOFTECH en France. distri- 
Pr ncresoie bue la version IV.1 du Pascal UCSD. 
On en trouve pour tous les goûts et Le système compotte. outre je 
pour toutes les bourses. Kensington compilateur Pascal, les compilateurs 
Microware propose un socle pivotant Fortran 77 et Basic, un éditeur pleine 
pour Mac, un modem portable, une page. un assembleur, un générateur 
unité de contrôle permettant d’ali- de code natif. 
menter l'ordinateur et ses accessoi- Sur le Macintosh, le Pascal UCSD 
res, et de choisir entre la sortie s'emploie exactement comme sur 
modem, une imprimante et un acces- toutes les autres machines. Comme 
soire. Des petits élévateurs métalli- dans les précédentes versions, on re- 
ques, pour incliner l'imprimante Ima- trouve : les mêmes commandes ({tou- 
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jours sur deux niveaux: il est regret- 
table que la souris ne joue pas, ici, 
son rôle habituel!), la segmentation 
des programmes. la compilation sé- 
parée, les mémoires dynamiques. 

Le Pascal UCSD permet d'accéder à 
toutes les fonctions du Macintosh. Il 
est muni d'une bibliothèque, lui don- 
nant la possibilité d'utiliser MAC- 
DRAW. Une UNIT est destinée à la 
gestion de la souris. 

La portabilité du système est assurée 
par BUS. 


Catalogues du CXP 


L'édition 1984 / 85 des catalogues 
du CXP est sortie : 10 tomes de 200 
pages chacun en moyenne. Progiciels 
système, comptabilité, gestion finan- 
cière et aide à la décision, de la pro- 
duction à la vente, paie et gestion du 
personnel, bureautique - gestion do- 
cumentaire - CAO, professions libé- 
rales, progiciels sectoriels (2 tomes), 
progiciels scientifiques et techniques. 
Malgré toutes ces informations, on 
n'y trouve pas les logiciels de 
Pom's. Ces catalogues sont des ré- 
pertoires et non des bancs d'essai. 


Adresses : 


Apple Seedrin - ZA de Couita- 
boeuf - av. de l'Océanie - BP 131 - 
91944 Les Ulis Cedex. 

First Class Peripherals - PO Box 
6187 - Lehig Valley - PA 18001 
USA. 

Megahaus - 5M703 Oberlin d 2 - 
San Dlego - CA 92121 USA. 

PBI Software - 1155 B H Chess 
Drive - Foster City - CA 94404 USA. 
Cirtech - Currie Road - Ind. Estate - 
eee - _ SelkirkshireTD1 2BP 
U 


Belkin Components - 4718 W Ro- 
secrans - Hawthorne CA 90250 
USA. 

AST Research - 2121 Alton Av. Ir- 
vine - California 92714. 

Markline - PO Box C5 Belmont - 
MA 02178 USA. 

Scooter, Ohm Electronics - 746 
Vermont - Palatine IL 60067 USA. 
Sublogic - 713 Edgebrook Drive 
Champaign - IL 61820. 

Kensington Microware - 251 Park 
AvSouth NY - NY 10010. 
Creighton Dev. Inc. - 4931 Birch 
St. Newport Beach - CA 92660. 
Thunderware - 19 G Orinda Way - 
Orinda - CA 94563. 

Casady - PO Box 223 779 Carmel - 
CA 93922. 

Boston Telecomputer - 19 Ledge 
Hill Road Boston - MA 02132. Bus 
Informatique - 3. rue de la Boétie - 
75008 Paris - Tél 265 06 04. 

CXP - 5, rue de Monceau - 75008 
Paris - Tél 225 19 60. 
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Certains systèmes utilisent le principe 
de la signature en fin de listing. pour 
identifier les programmes. il peut être 
effectivement pratique de savoir rapi- 
dement si deux programmes sont dif- 
férents ou si tel listing correspond 
bien à tel fichier sur disque. 


C'est l'objectif de la routine en as- 
sembleur présentée ici Elle a été 
écrite avec Big Mac et se place en 
$300. Un CALL 768 initialise le vec- 
teur de l'ampersand à $30A. Ainsi. à 
tout moment, on obtient la signature 
du programme Applesoft en mé- 
moire en tapant simplement & 


Quelques explications 


Cette routine utilise les pinteurs 


— TXTTAB ($67 — $68)} pour 
connaître l'adresse de début du pro- 





gramme Basic (généralement $801). 
— PGREND ($AF — S$B0) pour 
connaître l'adresse de fin du pro- 
gramme Basic. 


Elle se sert également de routines 
courantes telles que COUT, CROUT, 
et LINPRT ($ED24) pour afficher en 
décimal les nombres hexa contenus 
dans les registres À et X 


Son principe 


Considérer teus les octets du pro- 
gramme, ceux de rang pair et ceux 
de rang impair. On effectue un EOR 


1 S: 

2 * CREE UN CODE ISENTIFICATEUR 32 

3 + POUR PROGRAMMES APPLESOFT S3 

# 54 

S 55 

É HET eSR+LRESREX 5Sé 

7 # LABELS x 57 

8 * * 5e 

DO ERFÉRÉFÉREREEÉE se 

10 60 

11 TXTTAE = $é67 1 

12 ALIRE = +06 4? 

13 IDENTIFIE = #08 63 

14 PRGEND = $AF é+ 

15 PGRFIN = 18 45 

16 é$ 

17 AMPERY = $02FS 67 

13 COUT = $FDED 68 CONTa 
19 LINPTR = £EeD24 6? 
20 CROUT = $Fb3SE 70 
21 71 
22 72 CONTS 
23 73 

24 ORG #$300 74 
2 75 

26 76 
27 7 

22 ken RÉESÉERERES RES RIRES ren 78 CONT 
29 + INITIALISE L'AMPERSANR # 79 

30 + * 80 

32 82 

2 83 

34 LDé #5$0À 84 CONT3 
2 STA AMFERU+I 85 

26 LDA #5$508 a 

ce STA AMPERU:Z 87 CONTI 
38 88 

2 89 

AO +554 ESeSTESETTRERESSeL Er +R eee çn 

41 x PREND EN TXTTAB (57-68) x ?1 

42 # LE DERUT DU PROGRSMME, PUIS * 92 

43 > PREND EN PRGEND CAF -B0) x 93 CONTO 
44 # LA FIN DU PROGRAMME. * 94 

45 * FAIT UN ‘EOR SUR 2 OCT. AVEC +* 9s 

46 + LES OCTETS DU FROGRAMME BASIC * 95 

os À 97 

AS HERO ARENA RADEON EH DEEE EE 93 

4? 99 

50 100 
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Signature 


Patrice Neveu 


des octets impairs (ler. 3ème...) avec 
l'octet de stockage IDENTIFIE et on 
réalise simultanément la même opé- 
ration avec les octets pairs, sur l'octet 
IDENTIFIE + 1 

NB . il faut toutefois remarquer que 
PGREND situe plus exactement le 
début de la zone libre. non utilisée 
par le programme Basic ll en résulte 
que SIGNATURE soustrait 3 à cette 
adresse, afin de pointer sur la fin du 
programme Applesoft et non sur le 
début de la zone utilisable 


TXTTAB 
ALIRE 
TXTTAB+1I 
ALIRE+1 


PRGEND+ ! 
PGRFIN*+I! 


PRGEND 


#£0Z 

PG&F IPj 
CONT3 
CONTS 


PRGEND+ ji 
PGRFIN+1 
PGRFIN+1 


##00 
IDENTIFIE 
IDENTIFIE+. 


ALIRE+I1 
PGRFIN+t 
CONTI 
CONT3 
CONT2 


PGRFIN 
CeNT2 


(ALIRE) ,Y 


CONTO 
ALIRE+I 


IDENTIFIE 
IDENTIFIE 
(ALIRED,Y 
IDENTIFIE+I 
IDENTIFIE+!: 


br222 
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101 BNE CONT 1146 JSR LINPTR 

102 INC ALIRE+1 117 

103 JMP CONT 118 RTS 

104 119 

105 CONT2 JSR CROUT 120 

104 LDY #$00 121 #22 02% 202 36 2 26 3626 JE 26 JE JE DE JE DE JE HE JE DE JE EE 
107 122 * MESSAGES x 
108 PRNTCODE LDA CODEMSG,Y 123 * * 
109 BEG AFFCODE 124 24226 2626 262626 2626 26 DE D DE DE DE DE DE 6 DE DE 6 DE DE DE DE JE EN EN 
110 JSR COUT 125 

it 1 INY 126 

Lr2 BNE PRNTCODE 127 CODEMSG EQU * 

113 128 ASC "SIGNATURE: " 

114 AFFCODE LDA IDENTIFIE#+I 129 HEX 00 

115 LDX IOENTIFIE 130 

#*300.370 | LIST : ODEMOSI GNATURE 


0300- A9 OA 8D Fé 03 A9 03 80 
0308- F7 03 18 AS 67 353 06 AS 
0310- 68 35 07 ÀS 80 85 19 AS 
0318- AF 18 E9 03 85 18 90 03 
0320- 4C 29 03 AS 80 85 19 Cé 
0328- 19 A9 00 35 08 85 0? A8 
0330- AS 07 CS 19 90 07 FO 02 
0338- 4C SA 03 C4 18 BC 18 B1 
0340- 04 18 C8 00 02 Es 07 45 
0348- 08 35 08 B1 06 45 99 85 
0350- 09 18 C8 D0 DB Es 07 4C 
0358- 30 03 20 8E FD 40 00 89 
0360- 72 03 FO 06 20 EO FO C3 
0368- DO F5 AS 09 AS 08 20 24 
0370- ED 60 D3 C9 C7 CE C1 Da 
0378- DS D2 CS 84 A0 00 


Trucs et Astuces 


Eurêka! Il existe un PEEK permet- 
tant de savoir si un point de l'écran 
haute résolution est allumé ou éteint. 


A = PEEK(Y/64) : 

D=Y-64%A: 

B = INT(D/8) : 

C=D-8:B: 

E = INT(X?) : 

P = PEEK(8192 « PG + 1024 « C 
+ 128 « B +40 « A + E): 
P=P/21(X-E« 7)2: 

P = {P-INT(P)>.5) 


avec X. YŸ et PG Izs coordonnées ho- 
rizontale. verticale et le numéro de la 
page haute résolution en cours. on 
obtient P = 1 si le point est allumé. 
P = Osinon. 

Si vous n'aimez pas les lignes Apple- 
soft aussi complexes, voici encore 
plus court mais en assembleur. 

Après avoir BRUNé le programme 
HSCREEN  (relogeable} suivant. il 
suffit de taper : 

POKE 226," : 

C = USR (X) 

avec X et Y les coordonnées et P dé- 
fini comme précédemment. 


L'Ampersand est une merveilleuse 
instruction que nous a offert l’Apple- 
soft (très discrètement d'ailleurs). 
Malheureusement, la quasi totalité 
des routines qui ont été développées 
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se montrent d’un égoïsme prodigieux 
à l'égard de leurs consoeurs. 
Nombreux sont donc les lecteurs de 
Pom's qui, ignorant flassembleur, 
doivent perpétuellement charger les 
mêmes fichiers pour pouvoir utiliser 
simultanément plusieurs  routines 
sous Ampersand. 

Une méthode relativement simple, 
mais cependant peu connue consiste 
à modifier tous les appels de la 
forme : 

& <paramètres éventuels> 

par l'instruction : 

CALL <adresse> <paramètres 
éventuels>{selon les cas. il faudra ou 
non inclure une virgule entre 
l'adresse et les paramètres). 

Pour calculer l'adresse, il suffit d'ini- 
tialiser la routine de manière habi- 
tuelle, puis de calculer : 
ADR = PEEK(1014) 
PEEK(1015) 

Après avoir remplacé tous les appels 
à cette routine via l'Ampersand par 
un CALL à la valeur ADR, on peut 
alors charger une seconde routine 
qui sera directement appelée par l'&. 


Vite un exemple : tapez FP pour fixer 
HIMEM au plus haut. puis lancez 
Jutiltaire RENUMBER de la dis- 
quette système du Dos: vous obtien- 
drez : 

ADR = 36352 et il sera possible de 
lancer RENUMBER par : Ë 
CALL 36352 pour renuméroter un 
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1 TEXT POKE 33,40; HOME : INVERSE : HT 
AB 14: PRINT "DEMOSIGNATURE": NORM 
AL 

S PRINT CHRS (4)"BLOAD SIGNATURE”" 

10 UVTAB 5: PRINT "’SIGNATURE’ EST UNE S0 
US-ROÛT INE PERMETTANT AUX P 
ROGRAMMES APPLESOFTS DE SIGNER, C° 
EST À DIRE DE DONNER LEUR IDEN 
TITEZ" 

20 PRINT PRINT "PAR EXEMPLE, LA SIGNAT 
URE DE CE PROGRAMME EST :° 

CALL 768 


programme et 
CALL 36352H (au lieu de &H) pour 
le placer en attente de fusion. 


Certaines cartes graphiques Epson 
(Rom APLR) posent parfois, et de 
manière inexplicable. de sérieux pro- 
blèmes; par exemple. les impressions 
d'assemblage par Big Mac se révè- 
lent impossibles. 


L'origine provient de la ROM de la 
carte : à son entrée les trois premiè- 
res adresses de la page zéro ($0000 
à $0002), qui seront utilisées. sont 
sauvegardées (en $C808) sur la pile 
dans l’ordre 0 - 1 - 2. En sortie. mal- 
heureusement, on les restaure (en 
$C99F) dans l'ordre O0 - 2 - 1. Erreur 
fatale qui, en inversant deux adres- 
ses, fait chuter à coup sûr tout pro- 
gramme les utilisant. 


La solution serait simple s'il ne s'agis- 
sait pas d'une ROM. donc relative- 
ment coûteuse à faire refaire par un 
particulier. La parole est donc don- 
née à M3C et Technology Ressour- 
ces, respectivement ancien et actuel 
importateurs d'Epson. 
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Je voudrais soulever le problème de 
la compatibilité du logiciel MOUSE- 
PAINT avec d'autres imprimantes 
que lIMAGEWRITER. Ayant, en 
effet, cédé à l'attrait de la souris Ap- 
pleMouse sur le /‘e {qui permet de 
réver à un Macintosh plein de 
slots..), me voici bien déçu de ne 
pouvoir sortir les mises en page de 
MOUSEPAINT sur mon Epson RX- 
80FT. 

Je me tourne vers Pom's et ses lec- 
teurs {avant d'aller réclamer à Cuper- 
tino}, pour trouver la solution logi- 
cielle ou matérielle à cett2 limitation 
des périphériques utilisables avec 
MOUSEPAINT. 


Yvan Pellecuer - 69300 Caluire 


Trois questions sur ProDOS : 

1-Quels sont les manuels Apple dis- 
ponible s ? 

2-Comment le fichier Startup charge- 
t-il le Basic. Sustem ? 

3-Comment formater une disquette 
ProDOS sans passer par la disquette 
des utilitaires système ? 


Christian Coquelet - 77420 Champs- 
sur-Marne 


Pour ces trois points, reportez-vous à 
l'article sur ProDOS de ce numéro. 





Après avoir fait la conversion sous 
ProDOS d'un programme de gestion 
de stock, celui-ci refuse de fonction- 
ner. Les instructions du genre ‘’Poke 
43646. x" pour changer de lecteur 
ne sont pas appréciées. La lecture 
des fichiers directs pose aussi quel- 
ques problèmes. Enfin. le manuel 
livré détaille le fonctionnement des 
utilitaires mais quid des instructions 
nouvelles et de la syntaxe ?. 


Michel Jacquemard - 74420 Boëge 


Stop! Eloignez-vous tous de votre 
Apple et notez bien’ les program- 
mes. conseils. astuces diverses et 
autres que vous avez pu apprendre 
pour le Dos 3.3 ne fonctionnent pas 
sous ProDOS. Au mieux, un POKE 
ou un CALL intempestif se révèle- 
ront sans conséquence: au pire, vous 
aurez détruit votre programme en 
mémoire, voire l'intégrité de votre 
disquette. Malgré des apparences 
semblables pour utilisateur. le DOS 
3.3 et ProDOS diffèrent radicalement 
dans leur architecture interne. Même 
les CALLSs effectués vers les vecteurs 
de la page 3 ne donnent plus les 
mêmes résultats. Donc abstinence de 
tout patch dévastateur: promis ? 


L'acquisition récente d'un Apple /c 
m'a fait passer de la préhistoire de 
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Courrier des lecteurs 


Alexandre Avrane et Alexandre Duback 


l'informatique (je possédais un Sharp 
PC-1211} à l'ère moderne. Votre 
revue. fort bien faite, contribue large- 
ment à mon initiation. En tant que 
nouvel utilisateur, de nombreuses 
questions se posent à moi : 

1-Dans un article sur la compatibilité 
Apple /c {Poms 13), Guy Lapautre 
parle de programmes utilitaires tels 
que renumérotation et fusion de pro- 
grammes qui figureraient sur la dis- 
quette utilitaires système de l'Apple 
//& or je n'y ai pas trouvé ces pro- 
grammes. 

D'autre part, il semble exister des uti- 
litaires ProDOS tels que FILER. 
CONVERT, etc. que je ne possède 
pas. Où puis-je me Îles procurer ? 
2-Ma première utilisation. outre les 
jeux fon ne résiste pas à Lode Run- 
ner), a été la gestion familiale (il faut 
se donner bonne conscience). Or. je 
n'ai pu réussir à convertir sous 
ProDOS le programme Gescompte 
de Pons 10. 

3-Comment modifier Gescompte 
pour qu'il travaille en 80 colonnes ? 
4-Désirant m'initier au Pascal, j'ai 
acheté le livre "Découvrez Pascal sur 
Apple {l" I} y est dit que. lorsque 
l'on ne possède qu'un lecteur. il faut 
d'abord booter sur la disquette 
Apple3, puis insérer la disquette 
Apple0 et presser Reset Je suis inca- 
pable d'activer Pascal avec cette mé- 
thode: y a-t-il un Pascal spécial pour 
le //c ? 


P. Parivsiti - 94370 Noiseau 


1-L'utilitaire de renumérotation est 
inclus dans une disquette ProDOS 
Tool-Kit commercialisée séparément. 
En revanche. FILER. CONVERT et 
le ProDOS Formatter sont normale- 
ment livrés avec ProDOS. Demandez 
à votre revendeur de vous les four- 
nir. 

2-Convertissez à nouveau Ges- 
compte en ProDOS, en partant de 
votre fichier correct sous DOS 3.3: 
avant de l'exécuter. modifiez toutes 
les lignes contenant l'instruction VE- 
RIFY (cette commande DOS 33 
n'existe pas sous ProDOS}. en la 
remplaçant par une instruction OPEN 
suivie d'in CLOSE (lignes 2040, 
21060...) D'autre part. les noms de 
fichiers ProDOS ne peuvent contenir 
plus de 15 caractères et ne doivent 
pas comporter, en particulier, d’es- 
pace : modifiez les lignes 1220 à 
1230 en conséquence. 

3-11 n'est pas très difficile de modifier 
Gescompte pour le mode 80 colon- 
nes. Si un lecteur s'est passionné 
pour le problème, qu'il nous en fasse 
part et nous transmettrons. 


4-Bizarre, bizarre, ça devrait fonction- 
ner... Toutefois, les anciennes ver- 
sions de Pascal UCSD ne parvien- 
nent pas à booter sur le //c car elles 
sont incapables de reconnaître la 
“carte 80 colonnes”. Peut-être votre 
problème vient-il de là. 


Comment obtenir sur imprimante les 
accents circonflexes et les trémas, 
sans passer par un logiciel de traite- 
ment de textes ? 


J.-R. Vailong - 73000 Chambéry 


La notice de votre imprimante vous 
fournit le code ASCII de l'accent cir- 
conflexe et du tréma {généralement 
94 et 126 respectivement), il faut 
alors insérer un caractère “espace ar- 
tière” (code ASCII 8} entre la leitre 
et son accent La ligne Basic suivante 
écrit la phrase “Pour être ivre à 
Noël...” 

PRINT “Pour ee”: CHRS(8}: 
CHR$(94} ‘tre ivre à Noe”: 
CHRS(8), CHR$(126): “1...” 


Je possède un Apple If avec une 
carte langage équipée d'une Eprom 
2716 me faisant accéder à des fonc- 
tions très utiles {interruption du pro- 
gramme. sortie par Reset, commande 
de reboot). Malheureusement 
ProDOS refuse de se charger. et j'ai 
donc du remettre la ROM normale. 
Comment pourrais-je réutiliser mon 
Eprom sans devoir à chaque fois 
déssouder et ressouder ? 


Hong Hai Vuong - 75015 Paris 


Votre Eprom, un peu paiticulière 
(Lockbuster ?). ampute votre carte 
langage de 2 K octets de RAM. et 
ProDOS se trouve trop à l'étroit dans 
les 14 Ko restant pour fonctionner. 
La solution la plus économique est 
probablement de racheter une se- 
conde carte langage et d'y placer 
ProDOS. Pour déplacer ProDOS 
vers un slot autre que le slot*O. ob- 
servez la page mémoire $BF. et plus 
particulièrement les adresses $BFAG 
—$BFFS5: elles contiennent les vec- 
teurs utilisés par ProDOS pour acti- 
ver alternativement ROM et RAM. 





Comment peut-on transférer un fi- 
chier sur IBM 36 pour le iraiter sur 
Lisa ? 

S.Berthier - 37000 Grenoble 
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À priori, les logiciels LisaTerminal et 
MacTerminal permettent une liaison 
synchrone aux normes IBM 
3270/BSC et  SNA/SDLC, ou 
asynchrone (TTY et VT52/VT100 de 
Digital Equipment). D'autre part, on 
peut toujours brancher deux 
modems, mais le débit est bien sûr 
beaucoup plus faible (1200 bauds 
contre 1 Méga-bauds maximum). Si 
un lecteur a tenté l'expérience. 


Comment peut-on bloquer le cligno- 
tement du curseur et modifier la son- 
nette (CTRL-G} de l'Apple comme le 
font certains logiciels ? 


CBabin - 33200 Mérignac 


Ces deux modifications ne peuvent 
s'effectuer qu'en assembleur, en mo- 
difiant en $36 — $39 les adresses 
respectives des routines de sortie et 
d'entrée des caractères. Voici, à titre 
d'exemple, une routine (tournant 
sous DOS 3.3) donnant un ”’beep” 
semblable à celui des utilitaires four- 
nis avec ProDOS : 


+ 


LLLL LE 22 


1 
2 * #* 210 * 
3 * LLLLLL EL) 
4 
5 #* (C) 1984 Alexandre Avrane 
é 
7 # Routine modifiant le ‘Se11” 
8 # (Ctri-G) du Moniteur 
$ 
19 LDA  #<CSUW? 
ii STA S36 
12 LORA #)CSU2 
13 STA S3?7 
14 JMP  S$3EA 
1Ss 
16 CSuz EMP  #$67 ctrl-8 ? 
17 BNE CSu2X 
18 EDA #520 
19 STA CSsW222 
20 CSW2! LDA #2 
21 JISR $FCAB 
22 STA $c030 
23 LOR #$24 
24 JSR SFCAG 
25 STA +5C030 
26 DEC CSu22Z 
2? BNE CSw21 
28 RTS 


27 CSUZX JP  $FDFO 
30 CSw222Z CF8 9 


J'essaie de comprendre les docu- 
mentations en anglais. fournies par 
l'impottateur de l'Enhancer H, le 
Sup'R Terminal et la carte Legend 
64k maisÿ y perd mon ‘’français': 


JP. Merle - 13001 Marseille 


À notre connaissance, les traductions 
de ces manuels n'existent pas. 


1-Comment obtenir sur l'imprimante 
et à l'écran les nombreux caractères 
annoncés par le menu “Pomme” du 
Macintosh ? Pour un texte scientifi- 
que, beaucoup d'entre eux seraient 


très utiles: racine, lettres grecques, 
symboles'mathématiques.. 


2-Comment obtenir plus de 6 lignes 
d'impression par pouce ? 
3-Comment récupérer les caractères 


accentués sur l'imprimante à partir 
du Basic ? 


4-Comment lister le catalogue d'une 
disquette sur l'imprimante sans pas- 
ser par la copie d'écran ? 


Jacques Boutique - 83 rue Louis Ca- 
simir Ranson - 87000 Limoges 


1-L'option ‘clavier’ dans le menu 
“Pomme” n'est accessible qu'avec la 
police de caractères Chicago. Pour 
les caractères spéciaux que vous sou- 
haitez obtenir, il serait bon de chan- 
ger de police. La plus adaptée aux 
textes scient fiques serait, semble-t-il, 
la police Geneva. Pour une impres- 
sion sur papier, si votre texte est un 
fichier Mac Write, vous n'aurez 
aucun problème. 

2-Par défaut. l'impression est de 6 
lignes par pouce (ESC A). Ii est tou- 
tefois possible de la modifier. En 
effet, ESC T24 correspond à un in- 
terligne classique et ESC TI16 sup- 
prime les interlignes. Ainsi, pour un 
espacement de lignes particulier il 
suffit de taper en mode immédiat : 
LPRINT CHR$(27) "TXX”;, XX étant 
la valeur choisie. Cette commande 
peut être introduite dans un Pro- 
gramme. 

Pour obtenir 8 lignes par pouce 
tapez simplement : 

LPRINT CHR$(27) ”’B”. 

3-Lorsque vous listez un programme 
Basic, l’imprimante reçoit des codes 
ASCII S'ils sont inférieurs à 32 ou 
supérieurs à 127, l'imprimante ne 
comprend plus ! Deux solutions sont 
alors à envisager : 

— Transférer votre programme dans 
un fichier Mac Write et lister (atten- 
tion vous ne pouvez transférer que 8 
K à la fois). 

— Ufiliser le programme ci-dessous: il 
remplace tous les caractères accen- 
tués par des ”(@” et envoie l’équiva- 
lent d'un List. 


10'Le programme ä lister doit 
être préalablement sauvegardé 
sous ja forme d'un fichier 
“texte”. 

20 CLS:INPUT ‘fichier 7 ",F$: 
OPEN" ,LFS 

30 WHILE NOT EOF({1) 

40 LINE INPUT = EL$ 

SOFORB%=1 TO LEN(L$) 

60 C$=-MIDS(LS,B%,1)CR-ASC(CS). 
IF CR<52 OR CR> 127 THEN LPRINT 
"@”; ELSE LPRINT C$, 


111111 Pt CRE CYT2?2- 
hé AS ELITE # 
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70 NEXT:LPRINT 
80 WEND 
90 CLOSE 


4-Nous ne nous sommes pas encore 
penchés sur ce problème, mais tente- 
rons de le faire dès que possible. 


J'ai lu dans Pons 13 la lettre de M. 
Delacourte, selon laquelle PURPLE 
SOFT ne tolèrerait pas de’ pro- 
gramme Basic de plus de 2,5 K. Foit 
heureusement, il n'en est rien. {} suf- 
fit de charger PURPLESOFT avant le 
programme Basic. Pour éviter une li- 
mitation à 6.5 K il est nécessaire de 
charger le programme Basic au- 
dessus de la page graphique 1. 


L'utilisation sous PURPLESOFT d'un 
programme Basic {12000 octek — 
chargé en 16384) exploitant la rou- 
tine PROG48K (publiée dans Pom's 
5). relogée au-dessous de la page 
graphique 1, est possible grâce à la 
dérivation SYNTAX FRROR décrite 
dans le manuel de la carte Chat 
Mauve, qui pemnet d'employer 
conjointement les ampersands de 
PROG4S8K et de PURPLESOFT. 


Monsieur Bodin - La Prunerie - 
24430 Razac 


Le programme TRANS que j'ai dé- 
veloppé. écrit en assembleur Z&80. 
permet la communication entre un 
Apple sous CP;M et une autre ma- 
chine sous le même système L'utili- 
sateur est guidé pas à pas, en parti- 
culier pour les opérations de 
commutation du modem. 

La transmission binaire, 8 bits avec 
parité, se fait par blocs de 256 octets 
avec polling et cheksum. Tous les fi- 
chiers sont transmissibles en toute sé- 
curité. La vitesse de transmission est 
fixée par défaut à 1200 bauds:; il est 
toutefois possible de la modifier (elle 
peut aller jusqu'à 9600 bauds). 


Plusieurs versions de TRANS sont en 
cours de réalisation. 
En première installation, TRANS est 
livré pour deux sites en relation avec 
une assistance technique au prix de 
4000 F HT; en extension. pour un 
nouveau site relié à un ensemble 
déjà équipé, il en coûtera 1000 F 
HT. 
Pour plus de renseignement n'hési- 
tez pas à me contacter. 
Léon Kun& - 65 rue Nollet - 75017 
Paris 
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Pour Apple //e et //c 


Apple programming for learning 
and teaching de Frederick H. Bell, 
Prentice Hall - 305 pages - $22.05. 


Un cinquantaine de programmes dé- 
taillés, et environ 80 petits program- 
mes exemples, pour apprendre à 
programmer. Bien fait et pédagogi- 
que. 


Handbook of Applesoft Basic for 
the Apple Il and //e de Roy Earl 
Myers et David L Schneider, Prentice 
Hall - 320 pages - $22.05. 


Consacre une ou plusieurs pages à 
chaque mot réservé du Basic Apple- 
soft. Utilisable aussi par les posses- 
seurs de //c. Bien fait, bon ouvrage 
de référence pour les anglophones. 


Voici l'Apple //c de D. Goodman, 
Hachette - 165 pages - 95 FF. Tra- 
duit de l'anglais. 


Voici le premier livre ‘en français” 
consacré exclusivement à l'Apple //c. 
Cet ouvrage s'adresse aux débutants 
et détaille l'appareil. vu de l'extérieur 
comme de l’intérieur. On a droit à 
un chapitre de comparaisons avec 
d'autres matériels : à quoi cela peut-il 
bien servir dans un ouvrage destiné 
aux possesseurs du //c ? Ensuite, un 
chapitre par application présente les 
possibilités du matériel : traitement 
de texte, calculs, gestion de fichers, 
jeux, … Clair et propre. mais pas es- 
sentiel. 


La programmation du 6502 de 
AP. Stephenson. MicroDunod - 184 
pages - 95 FF. Traduit de l'anglais 
Bon ouvrage d'initiation au langage 
machine du 6502. 


L’Apple animé 3D de Phil Cohen, 
Evrolles - 184 pages - 90 FF. Traduit 
de l'anglais. 

Apprend à programmer le graphique 
et fournit des listings de programmes 
de création de tables de formes. 
d'édition... [l n'y a que des program- 
mes Basic, agrémentés d'un texte ex- 
plicatif bien détaillé. 


The power of Appleworks de Ro- 
bert E. Williams, Prentice Hall - 230 
pages - $25,95. 


Compilation assez complète. quoi- 
qu’un peu primaire, des potentialités 
du logiciel. Hélas, seule une partie 
des possibilités de communication 
entre les trois applications (traitement 
de texte, gestion de fichiers. tableur) 
est expliquée. et ce de façon acces- 
soire. On devrait pouvoir faire mieux 
sur le sujet, mais pour le moment il 
n'y a tien d'autre. 


Pour le Macintosh 


Le guide Marabout du Macintosh 
de Robert Van Loo, Marabout - 200 
pages - 185 FF. 
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Pour les débutants du Macintosh, 
présentation générale du Mac et in- 
troduction à l’utilisation de MacPaint, 
MacWnte et Muïtipian {version US). 
Ce livre a été rédigé avec le Macin- 
tosh. Ceci dit, travail honnête, mais 
qui apporte peu au-delà des docu- 
mentations originales : il y a déjà 
deux ou trois livres de ce genre en 
français. 


Guide de Futilisateur Macintosh 
de Joseph Caggiano. Sybex - 180 
pages - 98 FF. Traduction. 

Mêmes objectifs que l'ouvrage piécé- 
dent, maïs avec deux fois moins de 
matière (présentation plus aérée). 


Macintosh le magnifique de Merl 
K. Miller et Mary A. Myers, Editions 
du PSI - 157 pages - 95 FF. Traduit 
de l'anglais. 


Mêmes thèmes que les ouvrages pré- 
cédents, mais il s’agit beaucoup plus 
d'une présentation des possibilités 
que de l'apprentissage du Macintosh 
et de ses programmes standards. 


Multiplan pour Macintosh de Gé- 
rard Santraille et Hervé Thiriez, Edi- 
tions du PSI. 


Ouvrage complet sur le Multiplan du 
Macintosh, comportant de nombreux 
tableaux préparés relatifs à divers do- 
maines d'application. C'est le pre- 
mier ouvrage écrit sur le programme 
Multiplan en français. version 1.02 
Guilket 84). 

Une disquette d'accompagnement fa- 
cultative reprend tous les tableaux de 
l'ouvrage et propose en outre un 
programme éctit en Basic Microsoft 
pour obtenir la liste détaillée du 
contenu d'un tableau : formules. for- 
mats, noms de zones, découpages en 
fenêtres. . 


D'intérêt général 
Guide de l'Informatique [ndivi. 
duelle de H. Varley et [| Graham. 


Hachette - 225 pages - 99 FF Tra- 
duit de l'anglais. 


Cette encyclopédie couvre. à raison 
d'une à deux pages par thème. une 
grande variété de sujets liés de près 
ou de loin à la micro-informatique. 
Clair et bien présenté. Educatif 


Encyclopédie de ia micro-infor- 
matique de Peter Rodwell, Hachette 
- 206 pages - 149 FF. Traduit de 
l'anglais 

Méme principe que l'ouvrage précé- 
dent. en grand format {21 + 29.7) 
Nombreuses illustrations en couleurs 
Parfait pour les étudiants 


dBase II sans embüches de G 
Grigorieff, Eyrolles - 176 pages - 115 
FF 

La pratique de dBase Il de Jean- 
Claude Guillemot, Evrolles - 208 
pages - 140 FF. 


Bibliographie 


Alexandre Duback 


La pratique de dBase II de Carl 
Townsend, Turgeon - Diffusion PSI - 
210 pages - 200 FF. Traduit de l’an- 
glais.. 


Les avis sont partagés sur ces trois 
ouvrages qui, en première analyse, 
paraissent tous sérieux. Le premier a 
l'avantage de s’art'culer autour de la 
programmation d'une application 
complète {librairie]. Le second pos- 
sède un sommaire plus détaillé que 
le troisième. 


Le clavier du //c 


Au fil des jours d'utilisation du /c. 
certaines touches nécessitent une 
force de frappe” supérieure à la 
normale. Pour y remédier, voici quel- 
ques conseils 

— Otez tous les cabochons du cla- 
vier. 

— Retirez les deux caches en plasti- 
que (attention l'un d'entre eux est 
collé en quelques points au clavier) 

— Vous découvrez alors un superbe 
clavier et. à la base de chaque tige 
blanche (support des cabochons), un 
petit ressort 


La première solution consiste à reti- 
rer tous les ressorts. la seconde à tor- 
dre légèrement une des branches de 
chacun d'entre eux en l'éloignant de 
la tige blanche Remontez le tout et 
votre clavier sera comme neuf ! 


Mulitiplan et le //c 


Si vous utilisez Multiplan en 80 co- 
lonnes sur le //c, vous risquez quel- 
ques suprises. En effet. le pro- 
gamme ne reconnait plus 
FIMAGEWRITER et votre tableau à 
l'écran ne sera plus qu'une ligne de 
caractères ‘w' sur papier. Pour un 
tableau de 8 colonnes standards (80 
caractères par ligne) il vous suffit de 
recharger Multiplan, configuré en 40 
colonnes, et d'imprimer. En revan- 
che. pour un tableau de 13 colonnes 
(130 caractères par ligne) il faut utili- 
ser les caractères ultra comprimés de 
lIMAGEWRITER. Tout est expliqué 
dans Pom's 9 Cependant, il est né- 
cessaire d'y apporter une modlifica- 
tion. En commande SORTIE. sous- 
commande OPTIONS, il faut rempla- 
cer l'initialisation “lc par “c (c étant 
un caractère de contrôle lié à l'impri- 
mante) car! nest autre qu'une 
commande de recalcul manuel du ta- 
bleau en mémoire. Îl ne reste plus 
qu'à modifier, dans la commande 
PAGE, le nombre de caractères par 
ligne en fonction du caractère de 
contrôle choisi. 
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DISQUETTES (sauf précision. toutes les disquettes fonctionnent sous DOS 3.3 sur Apple IT + , //e ou //c) 




















HAIFA': Taser {cf. Pom's n° 5) à. - 5500 F. sis 
H-BASIC ns | ny rs (cf. Poms n° 8) 5 48. JISOO0ÛUET Ssnmuss 
MUSIC 2 ssraresassesssss (ct: Ponts n* 10) ee à SOUDE sas 
DISK-MANAGER ................ (ct Pomsnli) 7 star ASO OO sssienteses 
DBSTAG (CP/M) .…............... (cf Pomsn 11) à: 490 00'En es 
JEUX A ee er pt rares n (cf. Pom's n° 12) à SOON Sr 
JEUX.B iranienne (CF Pomsint 12) sms à SO OU'EL She 
BASICIUM (ct. Porn's n° 13) os FE n Le 10 010 D SRE Eee 
DEMO CX SYSTEME 64K ..….…...… (cf Pom's n° 13) RE SD OO ER ann 
DEMO JANE 64K ..................... (cf. Pom's n° 13) Rs à. 199 00.F 7 sem 
E P'E Sssniestismnassssnranéms (cf. Pom's n° 15) snssse Cd JOOOOE. series 
MACINTOSH (CF EPOMS NCIS. cnrs nid O0 OO Essen 
PASCAL nssssmeeuenae (Cf POM's n°15: ER AR PCIe (0 À 0 (0 1] CREER 
RECUEILS 
N° 1, recueil des revues 1 à 4 à I3000P sas 
Disquettes d'accompagnement des numéros 1 à 4 à. LSOOO'E*:. wine 
N° 2, recueil des revues 5 à 8 à JIS0 00e nain 
Disquettes d'accompagnement des numéros 5 à 8 a AOOOÛUF: Ssésuss: 
ANCIENS NUMEROS 
REVUES 4 7e à  35,00F 
REVUES 9 C]16 []11 
SO LA CEE OS A à  4000F 
DISQUETTES NOR NoR AE RIRE: 
ER CERF IE 
MEN ENS ee is à  5500F 
C]16 
ABONNEMENTS 
POUR 6 NUMEROS à partir dun 
ABONNEMENT SANS DISQUETTES à 200.00 F 
ABONNEMENT AVEC DISQUETTES (Apple Il + , //e, //c) à 48000F 
TOTAL TTC 


Supplément expédition 
par avion à l'étranger 


MONTANT 
DU REGLEMENT . 


Ces tarifs comprennent l'envoi postal en France métropolitaine. CEE et Suisse 
Supplément avion hors CEE : 10 F par numéro et/ou disquette 


Envoyez ce bon et votre règlement à {Abonnés : n'oubliez pas de joindre l’étiquette-adresse). 


Editions MEV - 64-70, rue des Chantiers - 78000 VERSAILLES 


Nom 


Adresse 





Poru's n° 16 











[M 2946 - 65 HS - 30F | 








PLUS LE DICTIONNAIRE DES BASIC. 


— “Où suis-je ”demandaMacintosh. 

— "Dans un nouveau monde” répondit CX Mac- 
Base, “Nos esprits viennent de fusionner, rien ne 
sera plus comme avant” 


Aujourd'hui. la réalité dépasse la fiction. Cela 
ne pouvait arriver que sur Macintosh avec CX 
MacBase, le logiciel qui stimule. accélère et pro- 
longe la pensée. 


Avec CX MacBase vous saurez tout de suite fi- 
cher, texter, tabler, graphiquer., mixer à volonté, 


# Apple Cemputer inc esile licencie de la Marque Macintosh CXMacBaseesi 


_ CX MacBase 


Vous avez champlibre : tout apparait sur l'écran 
d'un seul coup de souris “magique” 


Quel que soit votre domaine d'activité, sortez 
du rang ! Vous n'êtes plus fait pour marcher au 
pas. en ligne et en colonne forcées. Voyagez libre- 
ment. au gré de votre pensée. de fichier en fi- 
chier. de texte en calcul, de tableau en graphe 
Vous etonnerez votre entourage par des lettres 
ires personnalisées, des rapports enrichis de ta- 
bleaux, d'images ou de graphiques en trois di- 
mensions.. 





PARTENAIRE D'UN NOUVEAU MONDE 


CX MacBase. classe, calcule, gère. range, 
imprime. “coupe et colle” un nouveau monde. 


CX MacBase, c'est presque 
de la sorcellerie ! Pourtant ce 
n'est pas sorcier |... 








scmntibies d'étre modihes sons précruts 


VATIOB SO en. sr généroininant cor 


